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Introduction 


The Model 100 Companion is a book written for Model 100 users by Model 100 users. It pro- 
vides you with 27 programs written especially for the Model 100 portable computer. The programs 
included in this book were selected because they represent the needs of Model 100 users and 
because they take advantage of the Model 100’s unique features. 

This book is divided into three sections that best represent typical Model 100 uses: applications 
for home and office, entertainment for fun and games, and utilities for the serious or occasional 
programmer. Consequently, you should be able to find something in this book that will make using 
your Model 100 more enjoyable, more efficient, or both. 

In this context, versions of many of the programs in this book can be downloaded from the 
CompuServe Information service. To do so, you’ll need a Model 100 Modem Cable and a Compu- 
Serve Information Service account. You’ll find out how to subscribe to CompuServe when you buy 
your modem cable, and Appendix A of this book will describe the procedure for downloading 
programs from the service. 

As you look at and use the programs in this book, you might find it interesting to examine the 
different programming styles. Just as there are many roads leading to the same city, there are 
different methods to execute a programming routine. 

All the programs in this book are written in Model 100 BASIC. For the most part, the pro- 
grams can be adapted for use on other personal computers. However, some programs do perform 
PEEKs, POKEs, and ROM calls that are unique to the Model 100. These programs cannot be 
readily adapted for other computers. 

One of the unique features of the Model 100 is the ease with which BASIC interacts with the 
TEXT program to manipulate data files. Consequently, many programs require that you also 
create one or more text (.DO) files in conjunction with the BASIC program listed here. When 
feasible, we’ve provided sample .DO files since they usually require specific formats. When using 
.DO files, do not forget that the amount of free memory available in your computer will determine 
how large a file you can create. 

We think that you’ll enjoy using the programs in this book. For our part, we enjoyed assem- 
bling the book and getting to know Model 100 users all across the country. We’d like to thank all of 
them. 


The Editors 
Osborne/McGraw-Hill 



You will find the programs in this section especially useful if you use your Model 100 for 
practical applications. These programs will let you display a calendar for any month or year, 
perform a global search to replace words or numbers in a text file, learn the closing prices of your 
stock portfolio, and more. 

Two programs in this section, CompuServe E MAILER and CompuServe Stock Quote, require 
your Model 100 to be connected to a telephone line. Almost all the programs require a separate 
text (.DO) file. 
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Monthly Calendar 


The “Monthly Calendar” program allows you to display a monthly calendar on the Model 100's 
screen. This calendar is useful when you are scheduling appointments or using the built-in sche- 
dule organizer program. The program automatically displays the current month, and it allows 
you to scroll through the previous and following months as well. 

Using the Program 

When you run the program, the current month will be displayed as follows: 
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To view the calendar for the previous or following month, simply press the LEFT ARROW or RIGHT 
ARROW keys. If you want to look at the same month in the following or previous year, press either 
the UP ARROW or DOWN ARROW key respectively. 

You can specify a particular month by pressing A. You will then be prompted for the year. 
Type in a four-digit year, for instance, 1985. (If you just press ENTER, the year that is displayed in 
reverse video will be used.) Next you will be asked for the month of the year. Type in a number 
between 1 and 12 and press ENTER. (If you just press ENTER, the month displayed in reverse video 
will be used.) The month that you specified will then be displayed. 

To return to the Model 100 Main Menu at any time, simply press the SPACE BAR. 

Requirements 

This program requires 2K bytes of RAM. 


Listing 

10 ' *** Monthly Calender *** 

20 ' *** Copyright 1983 by Alex Jacobs *** 
30 CLEAR 300 
40 BS$=CHR$(8) 

50 RV$=CHR$(27) + "p": NV$=CHR$(27) + "q" 
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60 AS = "Jan3lFeb28Mar31Apr30May31Jun30Jul31Aug3lSep300ct31Nov30Dec31" 
70 MCUR=VAL (LEFTS (DATES, 2)) 

80 YCUR=VAL (RIGHTS (DATES, 2) ) + 1900 
90 DCUR=VAL (MIDS (DATES, 4, 2) ) 

100 MDISP=MCUR: YDISP=YCUR: GOSUB 460 
110 GOTO 200 

120 CLS: PRINT "Input Year (";RV$;YDISP;NV$;") : : INPUT YDISP 

130 PRINT "Input Month (";RV$;MDISP;NV$; ") : 

140 FOR K=1 TO 10: PRINT 3S$; : NEXT K 
150 INM=MDISP 
160 INPUT INM 

170 IF INM > 0 AND INM < 13 THEN 190 

180 BEEP: PRINT " The month must be between 1 and 12": PRINTS 0,: 

GOTO 130 

190 MD1SP=INM: GOSUB 460 

200 IF M$="Feb" THEN IF YDISP/4=INT(YDISP/4) THEN DINM=29 
210 IF M$="Feb" THEN IF YDISP/100=INT (YDISP/1 00) THEN DINM=28 
220 IF MS="Feb" THEN IF YDISP/400=INT (YDISP/400) THEN DINM=29 
230 HEAD$=M$ + " " + STRS(YDISP) 

240 IF MDISP > 2 THEN YEQU=YDISP: GOTO 270 
250 MEQU=MDISP + 13 

260 YEQU=YDISP - 1: GOTO 280 

270 MEQU=MDISP + 1 

280 D=INT(365.25*YEQU) - INT (YEQU/100) + INT(YEQU/40G) + 

INT (30 .6*MEQU) - 478163! 

290 W=INT (7.1 *(D/7~INT (D/7) ) ) 

300 CLS: PRINTS 0,"A=ANY";: PRINT TAB(20-INT ( (LEN (HEADS) ) /2) );HEAD$ 

310 PRINT " ";RV$;" Sun Mon Tue Wed Thu Fri Sat ";NV$ 

320 IF MDISP=MCUR AND YDISP=YCUR THEN TDAY=DCUR ELSE TDAY=0 
330 FOR 1=1 TO DINM 

340 IF I=TDAY THEN PRINT TAB(7+(W*4) );RV$; I;NV$; :W=W+1 : GOTO 360 

350 PRINT TAB (7+ (W*4) );I; : W=W+1 

360 IF W > 6 THEN W=0: PRINT 

370 NEXT I 

380 GOSUB 530 

390 I$=INKEY$: IF 1$="" THEN 390 
400 IF I$="A" OR I$="a" THEN 120 
410 IF ASC (I$)=29 THEN 470 
420 IF ASC (I$)=28 THEN 490 
430 IF ASC(I$)=30 THEN 510 
440 IF ASC (I$)=31 THEN 520 
450 MENU 

460 M$=MID$ (AS, (5*MDISP)“4,3) : DIN M=VAL(MID$ (AS, (5*MDISP)-1,2) ) : 
RETURN 

470 IF MDISP=1 THEN YDISP=YDISP-1 : MDISP=12: ELSE MDISP=MDISP-1 
480 GOSUB 460: GOTO 200 

490 IF MDISP=12 THEN YDISP=YDISP+1 : MDISP=1 : ELSE MDISP=MDISP+1 

500 GOSUB 460: GOTO 200 

510 YDISP=YDISP+1 : GOSUB 460: GOTO 200 

520 YDISP=YDISP-1 : GOSUB 460: GOTO 200 

530 PRINTS 80, "Month": PRINT " — 

540 PRINT: PRINT "Year": PRINT " M " 

550 RETURN 
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Note that in order to enter the symbols for the four arrow keys in lines 530 and 540 you need to 
use the GRPH key. The symbols for the LEFT ARROW and RIGHT ARROW keys can be generated by 
holding down the GRPH key and typing k and 1 respectively. Likewise, the symbols for the UP 
ARROW and DOWN ARROW keys are generated by holding down the GRPH key and typing o and , 
(comma). 
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With the “Days Between Dates” program you can perform calculations involving dates and 
numbers of days. The calculations you can perform include: 

• Calculating the number of days between two dates 

• Calculating the number of weekdays, weekends, or weeks between two dates 

• Calculating the day and date that is a given number of days from a certain date. 


Using the Program 

When you run the program, you will be prompted to press any key; when you do so, you will see 
the following: 



The initial values of the From and To fields default to the current date. This explains the 0 in the 
field labeled Days Between. 

To use the program, you must enter values for three of the four variables: From, To, Day, and 
Dbtw (Days Between). The value of the remaining variable will be calculated by the program. For 
example, if you enter values for From, To, and Days, the program will calculate Days Between. 
On the other hand, if you enter values for From, Days, and Days Between, the program will 
calculate the value of To. 

You enter values using the function keys Fi through F7. Note that labels for the function keys 
appear on the screen above the associated key name. The four variables used in this program are 
defined as follows: 

From This date is used as the beginning date in all calculations. It defaults to the 

current date. This value is never calculated and must always be given. 

To This is the end date used in all calculations. It also defaults to the current date. 

This value may be given or calculated. 

Days This is the type of days the program will use for calculating. It has four possi- 

ble values: All, Weekdays, Weekend Days, or Day of the Week. The value of 
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Days defaults to All; that is, the program will count all days in any calculation. 
Once you select Weekdays, Weekend Days, or Day of the Week, only those types 
of days will be used in a calculation. When you select Day of the Week, you will 
be prompted to select a day. The Day of the Week defaults to Sunday. 

Days Between This is the number of days between the date given in From and the date given 
in To. Its value may be given, or it may be calculated. 

Here is a short description of the function of each key in this program: 

Fl Allows you to change the value of From. 

F2 Allows you to change the value of To. 

F3 Changes the type of days used in calculations to All. 

F4 Changes the type of days used in calculations to Weekdays. 

F5 Changes the type of days used in calculations to Weekend Days. 

F6 Changes the type of days used in calculations to Day of the Week and asks you which 

day of the week to use. 

F7 Allows you to enter a value for Days Between. 

F8 Ends program and returns you to the Main Menu. 

The program displays the correct value of all four variables on the screen. It also displays the 
day of the week for the dates given in From and To. If you change the value of any variable, the 
values of the others are immediately recalculated. For example, if you change the value of To, the 
new value for Days Between will be displayed immediately. 

A few examples should help to clarify all of this. To calculate the date that is 10 weekdays from 
today: 

1. Push Fl and enter today’s date. 

2. Push F4 to select Weekdays. 

3. Push F7 and enter 10. 

The desired date will be displayed in the field labeled To. 

To calculate the number of days between now and the end of the year: 

1. Push Fl and enter today’s date. 

2. Push F2 and enter 12/31/84. 

3. Push F3 for all days. 

Your answer will appear in the field labeled Days Between. To calculate the number of weekdays, 
weekend days, and full weeks between now and the end of the year: 

1. Push F4 for Weekdays. 

2. Push F5 for Weekend Days. 

3. Push F6 and enter today’s day. 
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To calculate the date of the presidential election in 1984: 

1. Push Fl and enter 11/1/84. 

2. Push F6 and enter 2. 

3. Push F7 and enter 1. 

Note: If you push a function key by mistake, just press ENTER and nothing will change. Dates 
should generally be entered as mm/dd/yyyy ; however, you can enter the year with two digits 
(assuming you mean this century) or not enter the year at all if you are using the current year. 

Requirements 

The program requires 5K bytes of RAM. 


Listing 

10 ' *** Days Between Dates *** 

20 ' *** Copyright 1983 by Michael Rubenstein *** 

30 CLS 

40 PRINTS 91,RV$; "Days Between Dates";NV$ 

50 PRINTS 200, "Press any key to continue..." 

60 IF INKEYS- " THEN 60 

70 CLEAR 1024: DIM DA$(9) ,MD%(12) 

80 D1$=DATE$: D2$=D1$: Dl=-1 : D2=D1 : DA=7: C=0 
90 RESTORE 

100 FOR I%=1 TO 12: READ MD%(I%): NEXT 1% 

110 FOR I%=0 TO 9: READ DA$(I%): NEXT 1% 

120 CLS 

130 PRINTS 10, "Days Between Dates" 

140 SCREEN 0,0 

150 PRINTS 280, "From To All Wkda Wknd Day Dbtw Menu"; 

160 ON KEY GOSUB 270,330,390,400,410,420,470,560 
170 IF D1 < 0 THEN D$=D1$: GOSUB 890: D1=D: E1=E 
180 IF D2 < 0 THEN D$=D2$: GOSUB 890: D2=D: E2=E 
190 PRINTS 80, "From: ";Dl$;TAB(20);"To: ";D2$;" " 

200 Ml - Dl-7*INT(Dl/7): M2=D2-7 *INT(d2/7) 

210 PRINT " "; DAS (Ml); TAB (20);" ";DA$(M2); M ";:PRINT 

215 PRINT 

220 PRINT DA$(DA);"s between: ";TAB(20);: PRINT USING 
"UUUUttti"; E2-E1; 

230 PRINT SPACES (39-POS (0) ) 

240 KEY ON: KF=0 

250 C$=INKEY$: IF NOT KF THEN 250 

260 GOTO 160 

270 KF=-1: KEY OFF 

280 PR$="From? ": IL%=10: GOSUB 570 

290 IF INS <> "" THEN GOSUB 690: IF ER% THEN BEEP: GOTO 280 
300 GOSUB 680 

310 IF INS <> "" THEN D1$=IN$: D1=-1 

320 RETURN 

330 KF=-1 : KEY OFF 
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340 PR$= "To? IL%=10:G0SUB 570 

350 IF INS <> "" THEN GOSUB 690: IF ER% THEN BEEP: GOTO 340 
360 GOSUB 680 

370 IF INS <> "" THEN D2$=INS: D2=-1 
380 RETURN 

390 KF=-1: KEY OFF: DA=7: GOTO 460 

400 KF=-1: KEY OFF: DA=8: GOTO 460 

410 KF--1 : KEY OFF: DA=9: GOTO 460 

420 KF=-1: KEY OFF: PR$="Day (0=Sunday, . . .)? ": IL%=1 

430 GOSUB 570: IF IN$="" THEN GOSUB 680: RETURN 
440 IF INS < "0" OR INS > "6" THEN 430 
450 GOSUB 680: DA=VAL(IN$) 

460 D=D1 : GOSUB 950: E1=E:D=D2: GOSUB 950: E2=E: RETURN 

470 KF=-1: KEY OFF: PR$=DA$(DA) + "s? ": IL%=6 

480 GOSUB 570: IF IN$="" THEN GOSUB 680: RETURN 

490 J=1 : C$=LEFT$(IN$,1): IF C$= "+" OR C$= THEN J=2 

500 IF J > LEN (INS) THEN 480 

510 FOR I%=J TO LEN (INS) 

520 C$=MID$(IN$,I%,1): IF C$ < "0" OR C$ > "9" THEN 480 
530 NEXT 1% 

540 GOSUB 680 

550 DB=VAL(IN$) : GOSUB 990: RETURN 
560 KEY OFF: MENU 

570 GOSUB 680: IN$="": PRINTS 240,PR$; 

580 C$=1NPUT$ (1 ) 

590 IF C$=CHR$(13) THEN RETURN 

600 IF C$=CHR$(8) OR C$=CHR$(127) THEN 650 

610 IF C$=CHR$ (24) THEN 570 

620 IF C$ < " " THEN 580 

630 IF LEN(INS) < IL% THEN PRINT C$; : IN$=IN$ + C$: GOTO 580 
640 BEEP: GOTO 580 
650 IF IN$="" THEN 580 

660 IN$= LEFTS ( INS, LEN ( INS) -1 ) : PRINT CHRS(8);" ";CHRS(8); 

670 GOTO 580 

680 PRINTS 240,SPACE$(40) ; : RETURN 
690 GOSUB 820: IF ER% THEN RETURN 

700 M%=VAL(W$) : IF M% < 1 OR M% > 12 THEN ER%=-1 : RETURN 
710 D$=RIGHT$ ("00"+W$,2) 

720 GOSUB 820: IF ER% THEN RETURN 

730 D%=VAL(W$): D$=D$ + "/" + RIGHT$("00"+W$ / 2) 

740 IF IN$="" THEN IN$=RIGHT$(DATE$ / 2) 

750 Y%=VAL(IN$) 

760 IF (LEN (INS) MOD 2) THEN IN$= "0" + INS 

770 IN$=D$ + ’7" + INS 

780 ER%=0: IF D% <= MD%(M%) THEN RETURN 

790 IF (Y% MOD 4=0)-(Y% MOD 100=0)+(Y% MOD 400=0)=0 THEN ER%=“1 
RETURN 

800 IF M%=2 AND D%<=29 THEN RETURN 

810 ER%=-1: RETURN 

820 IF 1N$="" THEN ER%=-1 : RETURN 

830 I%=INSTR (INS,"/") : IF I%=1 OR 1% > 5 THEN ER%=-1 : RETURN 
840 IF I%=0 THEN W$=IN$: IN$="": ELSE W$=LEFT$(IN$,I%-1 ) : 
IN$=RIGHTS(IN$,LEN(IN$)-I%) 

850 FOR I%=1 TO LEN(WS) 
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860 C$=MID$(W$,I%,1): ER%=C$ < "0" OR C$ > "9": IF ER% THEN 
RETURN 
87 0 NEXT 1 % 

880 ER%=0: RETURN 

890 W=VAL(LEFT$(D$,2)) : X=VAL(MID$ (D$,4,2) ) : V=VAL(MID$(D$,7)) 
900 IF V < 100 THEN V=1900 + V 
910 Y=-INT ( (14-W) /12) 

920 Z=X-32074+INT (1461*(V+48Q0+Y)/4) 

930 Z=Z+INT (367*(W-2-12*Y)/12) 

940 D=Z-INT (3*INT ( (V+49G0+Y) /1G0) /4) 

950 IF DA < 7 THEN E=INT (D/7): E=E-(D-7*E>=DA) : RETURN 
960 IF DA=7 THEN E=D: RETURN 

970 E=INT (D/7): E=2*E+1- (D-7*E=6) : IF DA=8 THEN E=D-E 
980 RETURN 

990 IF DA < 7 THEN R=DA+7*INT (DI/7): D2=R+7* (DB+ (R>D1 ) ) : GOTO 
1070 

1000 IF DA=7 THEN D2=D1+DB: GOTO 1070 
1010 IF DA <> 8 THEN 1050 

1020 X=D1-7*INT (DI/7): Rl=D1+(X=6)+2*(X=0) : R=R1+DB+2*SGN 
(DB)*INT (ABS (DB/5) ) : X=R-7*INT (R/7) 

1030 Y=R1-7*INT (R1 /7) :R=R+2*( (X<Y)*(DB>0)-(X>Y)*(DB<0)) : X=R- 
7*INT (R/7) 

1040 D2=R-2*((X=0)+(X=6))*SGN (DB) : GOTO 1070 
1050 X=Dl-7*INT (DI/7): R=D1+X*(X<6)+DB+5*INT (DB/2): X=R-7*INT 
(R/7) 

1060 D2=R-6*(X>0)-X 

1070 X=D2+68568 ! : Y=INT (4*X/1 46097 !) : X=X-INT ((1 46097 !*Y+3)/4) 
1080 YR=INT (4000*(X+1 ) /I .461 E+06) : X=X-INT (1461*YR/4)+31 
1090 MO=INT (80*X/2447) : DY=X-INT (2447*M0/80) : X=INT (MO/11) 
1100 M0=M0+2-12*X: YR=100*(Y-49)+YR+X 
1110 W$=STR$(MO) : GOSUB 1170: D2$=RIGHT$("00"+W$,2) 

1120 W$=STR$(DY): GOSUB 1170: D2$=D2$ + ”/" + RIGHT$("00"+W$,2) 
1130 W$=STR$(YR): GOSUB 1170 

1140 IF YR >= 1900 AND YR < 20C0 THEN W$=RIGHT$(W$,2) : GOTO 1160 
1150 IF LEN (W$) < 4 THEN W$=RIGHT$ ("0000"+W$,4) 

1160 D2$=D2$ + "/"+ W$:D=D2: GOSUB 950: E2=E: RETURN 
1170 IF W$ <> "" THEN IF LEFT$(W$,1 )=" " THEN 
W$=RIGHT$(W$ / LEN(W$)~1) : GOTO 1170 
1180 RETURN 

1190 DATA 31,28,31,30,31,30,31,31,30,31,30,31 
1200 DATA Sunday, Monday, Tuesday, Wednesday,Thursday / Fri day, 
Saturday, Day,Weekday, Weekend Day 
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The “Appointment Reminder” program will help you keep track of your appointments. It 
allows you to view, add, or list appointments stored in the file NOTE. DO. 

Using the Program 

When you run the program, you will see the following screen: 



This program uses the file NOTE. DO to store all appointments. You need not enter appoint- 
ments in the NOTE. DO file prior to using the Appointment Reminder. If NOTE. DO does not exist, 
the program will create it; any appointments entered into NOTE. DO via the Model 100’s built-in 
TEXT program will also work with this program. 

To view an appointment, type the letter V during the menu display. You will be asked to key in 
either a date or a phrase. If you want to view appointments for the current day, just press ENTER. 
The computer will search through the file NOTE. DO and display any entries that match the date 
or phrase. For each appointment displayed, the program will ask whether you would like to delete 
it from the file. Respond by typing a Y for yes or an N for no. 

To add an appointment, type the letter A during the menu display. The program will ask you 
to type in the day and then the hour. Note that the date and time must be in the format mm/dd 
and hh:mm. Once you see the prompt APPOINTMENT:, you can enter your appointment 
reminder. Be aware that appointment entries must be no longer then 255 characters (including 
blanks). After you have entered your appointment, the program will append it to the file 
NOTE. DO and reorganize the file into chronological order. 

From the menu, typing the letter L will list all the appointments on the screen. Pressing the 
Model 100’s PAUSE key will halt the listing; to continue, press the PAUSE key again. To terminate 
the listing, type the letter X. 

Typing the letter Q from the menu will exit you from the program and return you to the Model 
100’s Main Menu. 

Requirements 

This program requires 3.5K bytes of RAM. 
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Listing 

10 1 *** Appointment Reminder Program *** 

20 ' *** Copyright 1983 by Richard S. Ross, Jr. *** 

30 CLS 

35 OPEN "NOTE. DO" FOR APPEND AS 1: CLOSE 1 
40 GOSUB 120 

50 PRINTS 46, DATES: PRINTS 65, TIMES 
60 C$= INKEYS 

70 IF C$="L" OR C$="L" THEN 230 

80 IF C$="V" OR C$="v" THEN 340 

90 IF C$="A" OR C$="a" THEN 650 

100 IF C$="Q" OR C$="q" THEN MENO 
110 GOTO 50 

120 ' Routine to initialize screen 
130 CLS 

140 LINE (0,0)- (239,63) ,1 ,B 
150 LINE (2,2)- (237,61 ),1 ,B 
160 LINE (4,4) -(23 5, 59), 1,8 
170 PRINTS 130,"<V>iew Appointment"; 

180 PRINTS 17G,"<A>dd Appointment"; 

190 PRINTS 210,"<L>ist Appointments"; 

200 PRINTS 250,"<Q>ui t"; 

210 RETURN 

220 ' Routine to list all appointments 
230 OPEN "NOTE. DO" FOR INPUT AS 1 
240 CLS 

250 PRINTS 125, "Type <X> to terminate listing." 

260 FOR DLAY=1 TO 500: NEXT DLAY 

270 CLS 

280 X$=INKEY$ 

290 IF EOF(1) OR X$="X" OR X$="x" THEN CLOSE: GOTO 40 

300 LINE INPUT#1 ,A$: PRINT AS 

310 FOR DLAY = 1 TO 1000: NEXT DLAY 

320 GOTO 280 

330 ' Routine to View Appointments 

340 MAXFILES=2: CLOSE 

350 OPEN "NOTE. DO" FOR INPUT AS 1 

360 OPEN "TEMP. DO" FOR OUTPUT AS 2 

370 F0UND=0 

380 CLS 

390 PRINTS 127, "Date to be Viewed (MM/DD)" 

400 PRINTS 179, "or" 

410 PRINTS 209, "Phrase to be searched" 

420 PRINTS 288, "Press <ENTER> for today"; 

430 PRINTS 40,;: LINE INPUT "";VD$ 

440 IF VDS="" THEN VD$=LEFT$(DATE$,5) 

450 IF EOF (1 ) THEN 540 ELSE LINE INPUTS, NFS 
460 IF INSTR (NF$,VD$) =0 THEN PRINT#2,NF$: GOTO 450 
470 FOUND=1 
480 CLS 

490 PRINTS 80, NFS: BEEP 

500 PRINTS 248, "Delete this entry (Y/N)" 

510 X$=INKEY$: IF X$="" THEN 510 


12 



Appointment Reminder 


520 IF X$="N" OR X$="n" THEN PRINT#2,NF$ 

530 GOTO 450 

540 IF FOUND THEN 600 

550 CLS: 

560 PRINTS 160, "No entry found for ";VD$ 

570 FOR DLY=1 TO 500: NEXT DLY 
580 CLOSE 
590 GOTO 40 
600 CLOSE 

610 KILL "NOTE. DO" 

620 NAME "TEMP. DO" AS "NOTE. DO" 

630 GOTO 40 

640 1 Additional appointment routine 

650 CLEAR 2000 

660 Y$=STRING$(40," ") 

670 S$="N0TE. DO" 

660 CLS: PRINTS 47, "Input Additional Appointment"; 
690 PRINTS 1 60, Y$; 

700 PRINTS 160,;: LINE INPUT "New Date (MM/DD): ";ND$ 
710 IF LEN (ND$) <> 5 THEN 690 
720 PRINTS 1 60, Y$ 

730 PRINTS 160,;: LINE INPUT "New Time (HH:BM): ";NT$ 
740 IF LEN (NTS) <> 5 THEN 720 
750 PRINTS 160,Y$ 

760 PRINTS 160,;: LINE INPUT "Appointment: ";NP$ 

770 NE$= ND$ + " " + NTS + " " + NP$ 

760 ' Count entry and detect duplication 

790 C0UNT=0: B=1 : E=11 

800 OPEN S$ FOR INPUT AS 1 

810 IF EOF Cl ) THEN 890 

820 LINE INPUT#1 ,TRASH$ 

830 IF NE$ <> TRASHS THEN 870 

840 CLS: PRINTS 160,"Identi cal entry exist for ";NE$ 

850 FOR DLY=1 TO 1000: NEXT DLY 

860 CLOSE: GOTO 40 

870 C0UNT=C0UNT + 1 

880 GOTO 810 

890 CLOSE 1 

900 OPEN S$ FOR APPEND AS 1 
910 PRINT#1 ,NE$: C0UNT=C0UNT+1 
920 CLOSE 1 
930 CLS 

940 PRINTS 134, "Reorganizing" 

950 PRINTS 178, "File" 

960 ' Read file into array 
970 OPEN S$ FOR INPUT AS 1 
980 DIM WS(COUNT) 

990 FOR J=1 TO COUNT 
1000 LINE INPUT#1,W$(J) 

1010 NEXT J 
1020 'CLOSE 1 

1030 GOSUB 1120 'Sort array 
1040 KILL S$ 

1050 OPEN S$ FOR OUTPUT AS 1 
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1060 FOR J=1 TO COUNT 
1070 PRINT#1,W$(J) 

1080 NEXT J 

1090 CLOSE 

1100 GOTO 40 

1110 ' Sort routine 

1120 PIV0T=C0UNT 

1130 PIV0T=INT (PIVOT/2) 

1140 IF PIV0T=0 THEN RETURN 
1150 T2=1 

1160 T3=C0UNT-PIV0T 
1170 START=T2 
1180 T4=START+PIV0T 

1190 IF (MID$(W$(START),B,(E-B)+1)) < (MID$(W$(T4),B, (E-B)+1 ) ) 

THEN 1260 

1200 TEMPS- W$ (START) 

1210 W$ (START) =W$(T4) 

1220 W$(T4)=TEMP$ 

1230 START-START-PIVOT 

1240 IF START < 1 THEN 1260 

1250 GOTO 1180 

1260 T2-T2 + 1 

1270 IF T2 > T3 THEN 1130 

1280 GOTO 1170 

1290 RETURN 
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The “Address File Search” program is useful for printing out, displaying, or sorting addresses 
and phone numbers stored in the ADRS.DO file. It allows you to search for addresses by ZIP 
Code, State Code, and Area Code. 

Using the Program 

This program assumes that the names, addresses, and phone numbers are stored in the file 
named ADRS.DO in the following format: 

Name, Street Address, City, State, ZIP Code :Area Code-Phone #: 

Note that the phone number must be surrounded by colons (for use with the built-in TELCOM 
program). For example, the following entry in ADRS.DO would be valid: 

Asher Fitzgerald, 2338 Arlington, Fort Worth, TX, 76110, :817-944-7328: 

Requirements 

This program requires 3.5K bytes of RAM; a printer is optional. 

Listing 


10 '*** Address File Search Program *** 

20 '*** Copyright 1983 by Daniel G. Shafer *** 

30 CLS: CLEAR 3000: DEFINT A-Z: RN=1 
40 F$="ADRS . DO" 

50 PRINTS 86, "Address File Search Program" 

60 PRINTS 200, "Press any key to continue..." 

70 A$=INKEY$: IF A$="" THEN 70 
80 CLS 

100 PRINT: PRINT "<1> Search by State Code" 

110 PRINT "<2> Search by Zip Code" 

120 PRINT "<3> Search by Phone Area Code" 

130 PRINT "<4> Exit Program" 

140 PRINT: PRINT "Type a number to make a selection" 

150 INPUT A 

160 IF A =4 OR A=0 THEN MENU 

170 CLS: PRINT "Where do you want the report to go?" 

180 PRINT: PRINT "Type <P> for Printer, <S> for Screen";: INPUT 

A$ 

190 A$=LEFT$ (AS, 1 ) 

200 IF A$="P" OR A$="p" THEN PF=1 : GOTO 240 
210 IF A$="S" OR A$="s" THEN PF=0: GOTO 240 
220 BEEP: PRINT "Please type <P> or <S>" 


15 



Model 100 Companion 


230 PRINT "Press <ENTER> to continue.";: INPUT Y$: GOTO 170 
240 OPEN F$ FOR INPUT AS 1 
250 IF A <> 1 THEN 280 

260 INPUT "Enter the State Code to find: ";SS$ 

270 SS$=LEFT$(SS$,2): GOTO 530 
280 IF A <> 2 THEN 510 

290 INPUT "Enter the Zip Code to find: ";ZZ$ 

500 ZZ$=LEFT$(ZZ$,5): GOTO 350 

310 INPUT "Enter the Area Code to find: ";AC$ 

320 AC$=LEFT$(AC$,3) 

330 ON A GOTO 340,440,510 
340 ' State Code Select Routine 
350 GOSUB 640 

360 IF INSTR(R$,":") <> 0 THEN R$=MID$ (R$,1 , (INSTR(R$,":")-1 )) 

370 IF RIGHTS (R$,1 ) =" " THEN R$=MID$(R$,1 ,LEN (R$)-1 ) : GOTO 370 
380 Z$=RIGHT$(R$,5) 

390 IF LEN(RS) > 5 THEN R$=LEFT$(R$, (LEN(R$)-5)) 

400 IF RIGHTS (R$,1 ) =" " THEN R$=MID$ (R$,1 ,LEN (R$)-1 ) : GOTO 400 
410 S$=RIGHT$ (R$,2) 

420 IF S$=SS$ THEN GOSUB 610 ELSE WR$="": R$="" 

430 GOTO 350 

440 1 Zip Code Select Routine 
450 GOSUB 640 

460 IF INSTRCRS,":") <> 0 THEN R$=MID$(R$,1 , (INSTR (R$, M : ")-1 ) ) 

470 IF RIGHTS (R$,1 )=" " THEN R$=f1IDS(R$,1,LEN(R$)-1 ) : GOTO 470 
480 Z$=RIGHT$(R$,5) 

490 IF Z$=ZZ$ THEN GOSUB 610 ELSE R$="": WRS="" 

500 GOTO 450 

510 1 Area Code Select Routine 

520 GOSUB 640 

530 C%=INSTR(R$,":") 

540 IF C%=0 THEN 600 

550 P$=RIGHT$(R$, (LEN (R$)-C%)+1 ) 

560 P$=MID$ (PS, 2, (LEN(PS)-I)) 

570 IF LEN (PS) < 10 THEN 600 
580 AA$=LEFT$ (PS, 3) 

590 IF AA$=AC$ THEN GOSUB 610 

600 R$="": WR$="": GOTO 520 

610 IF PF THEN LPRINT WR$ ELSE PRINT WR$ 

620 IF PF=0 THEN PRINTS 240, "Press <ENTER> to continue";: INPUT 
NXS: CLS 

630 WR$="" : R$="": RETURN 

640 1 Get a record from file and assemble it 
650 IF EOF (1 ) THEN 700 
660 R$=R$ + INPUTS (1,1) 

670 IF RIGHTS (R$,1)=CHR$ (10) THEN 680 ELSE GOTO 660 
680 WR$=LEFT$(R$,(LEN(R$)-1)) 

690 RETURN 
700 CLOSE: CLS 

710 IF PF=1 THEN LPRINT CHR$(12) 

720 GOTO 80 
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The “CompuServe EMAILER” program allows you to use CompuServe’s EMAIL (Electronic 
Mail System) with a minimum of connect time. It will automatically log you onto the CompuServe 
network, go to the EMAIL service, upload any messages that you want to send, and download any 
waiting mail. You also have the option to initiate this process automatically at any given time of 
the day. You can therefore read and compose your messages locally without being on-line. 

The EMAILER program has the capability to upload and download Model 100 text files that 
contain “long” lines. Normally, input to CompuServe is limited to 140 characters per line; however, 
with this program you can transfer lines that exceed this limit. 

Using the Program 

Before you can run the program, you need to have an entry in the file ADRS.DO containing the 
phone number of a CompuServe access port, your CompuServe ID number, and a password. For 
example, an entry for user 7134,123 in Columbus, Ohio, with a password of HIGH*ANXIETY 
would enter 

phone number user ID password 

ds^4572105<= A C?U7134423 A M?PHIGhTa.NXIETY a M> 

Note that the label (cis) must be entered in lowercase. 

You can create your outgoing messages with the Model 100’s built-in TEXT program. Messages 
to be sent out must be stored in a file called MAIL.DO. Each message must start with a three-line 
header consisting of 

• User number of the addressee 

• Sender’s name 

• Subject. 

For example: 

To: 70000,000 
Fr: Dave 

Subject: Book schedule 

Jon, we need to look at the delivery schedule for the M100 manuscript. Possible problems. 
Reply ASAP via EMAIL. 

You may store more than one message in the MAIL.DO file. However, each message must be 
separated by a GRPH F character (displayed as a small telephone handset)* and each message must 
have its own header. To generate the GRPH F character, hold down the GRPH key and type F. 

To conserve space in your Model 100, you can modify the program so that MAIL.DO will be 
automatically deleted after all messages have been sent. To do this, set SM = 0 in line 80. 

When you run the program, any pending EMAIL messages will be downloaded into a file 
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called MAILIN.DO. To delete messages automatically from CompuServe after they have been 
transferred, set SE = 0 in line 80. 

If an incoming EMAIL message is too long to fit in your Model 100’s memory, the program will 
terminate with an Error 7. When this occurs, no messages will be deleted from CompuServe so 
you will not lose any mail. 

Since this program requires access to the Programmer area on CompuServe, and since, for 
most accounts, access to the Programmer area is not allowed during prime time (8 A.M. to 6 P.M. 
weekdays), you should run the program between the hours of 6 P.M. and 8 A.M. 

There are also several CompuServe parameters that must be set in order to use this program: 
terminal type must be set to YIDTEX COMPATIBLE and initial entry must be set to VIDEO- 
TEX (the default). 

The Model 100’s TELCOM status must also be set to the default (M7I1E) before you can run 
this program. 

Requirements 

This program requires a minimum of 16K bytes. In addition, you will need a CompuServe 
account. 


Listing 


10 ' *** CompuServe EMAIL Program *** 

20 ' *** Copyright 1983 by CompuServe, Inc. *** 

30 CLS: MAXFILES=3: CLEAR 600: DIM HLSC3): DEFINT C,I,S 

40 'SET SM=0 TO KILL MAIL. DO AFTER MAILING; SE<>0 TO SAVE EMAIL ON CIS 

50 SM=1 : SE=Q 

60 E$=CHR$ (27) : SOUND ON: ON ERROR GGTO 540 
70 OPEN "ADRS" FOR INPUT AS 3 

80 IF EOF (3) THEN PRINT "CIS:" + CHRSC128) +" NOT IN ADRS": STOP 
90 LINE INPUT#3,LG$: IF LEFT$(LG$,4) <> "CIS:" THEN 80 
100 LGS=MID$(LG$,5,INSTR(1,LG$,">")-5) + "? !PR0“M?0>" 

110 M=VARPTR (LG$) : AD=PEEK(M+1 )+(PEEK(M+2)*256) : CLOSE 3 
120 ON ERROR GOTO 200 

130 PRINTS 61, "Time: ": PRINTS 165, "Mai l Time, or <N>ow:";: 

N=186: L=0:T$="" 

140 PRINTS N,CHR$(239) : PRINTS 67,TIME$: A$=INKEY$: IF A$="" THEN 
140 ELSE PRINTS N," : C=ASC(A$): IF C=13 THEN 170 

150 IF C <> 8 AND C <> 29 AND C <> 127 THEN L=L+1 : T$=T$+A$: 

PRINTS N,A$; : N=N+1 ELSE IF L > 0 THEN L=L-1 : T$=LEFT$(T$,L) : 
N=N-1: PRINTS N," "; 

160 GOTO 140 

170 IF LEN (T$) < 2 THEN 220 

180 ON TIME$=T$ GOSUB 210: TIME$ ON: 1=0: PRINTS 165, E$; "PAUTO- 
MAIL Set For: ";T$;E$;"Q" 

190 PRINTS 67, TIMES;: IF 1=0 THEN 190 ELSE '220 

200 BEEP: PRINTS 280,"? ILLEGAL TIME ";T$;: RESUME 130 

210 1=1: TIMES OFF: RETURN 

220 FOR 1=14000 T0 o 1000 STEP-999: SOUND 1,3: NEXT: CLS 

230 CALL 21200: CALL 21 293,0, AD: SOUND OFF: ON ERROR GOTO 600 

240 OPEN "MDM:7I1 E"F0R INPUT AS 1: OPEN "MDM:7I1 E"F0R OUTPUT AS 2 
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250 SOUND ON: ON ERROR GOTO 590 

260 OPEN "MAIL. DO" FOR INPUT AS 3 

270 FOR 1=1 T03 

280 IF EOF (3) THEN 580 

290 LINE INPUT#3,LN$: C=INSTR(1,LN$,":") 

300 IF C=0 THEN 280 ELSE HLS(I)=MID$CLN$,C+1) 

310 NEXT 

320 PRINT#2,"R SNDMAL": W$="NAM": GOSUB 560 
330 PRINT#2,"TTY:": W$="E": GOSUB 560 
340 IF EOF (3) THEN 370 

350 C$=INPUT$(1 ,3) : IF C$=CHR$(130) THEN 370 
360 PRINT#2,C$;: PRINT INPUTS (1,1 ); : GOTO 340 
370 PRINT#2,CHRS(26); 

380 W$= ,, S": GOSUB 560:PRINT#2,HL$(1 ) : GOSUB 560: PRINT#2,HL$(3) 
390 W$="N" : GOSUB 560: PRINT#2,HL$(2> : W$="OK": GOSUB 560 
400 IF C$=CHR$ (130) THEN 270 

410 CLOSE 3: IF SM THEN PRINT E$; "PMAIL.DO Retained" ELSE 
KILL"MAIL.DO": PRINT E$;"PMAIL.DG Deleted" 

420 PRINT "Read EMAIL"; E$;"Q": CLOSE 3: ON ERROR GOTO 600 
430 OPEN "MAILIN. DO" FOR APPEND AS 3: PRINT#3, DAYS, TIMES 
440 PRINT#2,"R EMADMP": LINE INPUT#1,LN$: 0$="" 

450 C$=INPUT$(1 ,1 ) : PRINT C$; : PRINT#3,C$; 

460 0$=RIGHT$(0$,4) + C$: IF 0$ <> CHRSC10) + "OK" + CHR$(13) + 
CHRS(IO) THEN 450 
470 IF SE THEN 510 

480 PRINT#2,"PR0 (4)EMAIL.DAT": WS="OK": GOSUB 560 
490 PRINT#2,"DEL EMAIL.DAT": GOSUB 560 
500 PRINT E$; "POLD EMAIL Deleted";ES; "Q" 

510 PRINT#2,"0FF": W$="C": GOSUB 560: CLOSE: CALL 21179 
520 PRINT E$; "PMAIL Ready In MAILIN. DO";E$;"Q" 

530 FOR 1=999 TO 14000 STEP 500: SOUND 1,3: NEXT I: MENU 
540 PRINT "? No ADRS File": STOP 
550 'WAIT ON W$ 

560 LINE INPUT#1,PR$: PRINT PRS: IF LEFT$(PR$,LEN(W$) )=WS THEN 
RETURN ELSE 560 
570 ’ERRORS 

580 PRINT "? FORMAT ERROR In MAIL. DO": GOTO 610 

590 IF ERR=52 THEN PRINT E$;"PNO Outgoing Mail": RESUME 420 

600 PRINT "ERROR ";ERR 

610 BEEP: CLOSE: STOP 
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The “Text Change (Search and Replace)” program enables you to make changes automatically 
in a text (.DO) file. This is especially useful for word-processing applications. One feature of the 
program is that it automatically creates a new file with the changes and does not destroy or alter 
the original file. 

Using the Program 

When you run the Text Change program, all of the files currently in RAM will be displayed. It 
is important to note that you can only replace words or numbers that are in a .DO (text) file. 

The first question you’ll be asked is the name of the file you wish to change. Type in the name 
of the file (you do not need to add the extension .DO). 

Since the program will create a separate file containing the changed text, you will then be 
prompted to enter the name that you want assigned to the new file. Remember that file names 
must be six characters or less. Do not use the name of an existing file. 

Next you’ll be asked what word (number or phrase) in the original file you want to change. You 
must enter the word, number, or phrase exactly as it appears in the file. The program will differ- 
entiate between upper- and lowercase characters . If you want to change “jOne”, you must specify 
that you want to change “jOne”, not “Jone” or “JONE”. Once you are prompted for the new word 
(number or phrase), enter it exactly as you want it to appear in the file. 

Finally, you’ll be prompted to make another change in the original file. If you want to make 
more changes, repeat the procedure. If you do not, simply press ENTER. At that point, the screen 
will clear and the Model 100 Main Menu will reappear. 


Requirements 

This program requires 1.5K bytes of RAM for the program and enough additional memory to 
create a new file. 


Listing 

10 • *** Text Change (Search & Replace) Program *** 
20 ' *** Copyright 1983 by Michael Rubenstein *** 

30 DEFINT A-Z 
40 MAXFILES=2: CLEAR 2048 
50 DIM S1$(19),S2$(19) 

60 ON ERROR GOTO 460 

70 CLS : PRINTS 90, "Text Change Program" 

80 PRINTS 20G, "Press any key to continue — " 

90 A$=INKEY$: IF A$= "" THEN 90 
100 CLS: FILES 
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11U PRINT : F1$="": ER=0: INPUT "Which file do you want to 
change"; FIS 

120 IF Fl $="" THEN MENU 
130 OPEN FI $ FOR INPUT AS 1 
140 IF ER THEN 110 

150 F2$="" : ER=0: PRINT: PRINT "A new .DO file will be created. 

What do" 

160 INPUT "you want to name the new file";F2$ 

170 I=INSTR(F2$,"."): IF I THEN F2$= LEFT$(F2$,I-1 ) 

180 IF F2$="" THEN F3$="CH$$$$" ELSE F3$=F2$ 

190 OPEN F3$ FOR OUTPUT AS 2 

200 IF ER THEN 150 

210 ON ERROR GOTO 0 

220 N= -1 

230 FOR 1=0 TO 19 

240 S1$(I)= PRINT: PRINT "What word in " F1$ ".DO do you" 

250 INPUT "want to change";Sl$(I) 

260 IF S1$(I)= "" THEN 310 

270 S2$(I)="": PRINT: PRINT "What is " S1$(I) 

280 INPUT "to be changed to";S2$(I) 

290 N=I 
300 NEXT I 

310 IF N < 0 THEN CLOSE: KILL F3$+".D0": MENU 
320 IF EOF (1 ) THEN 410 
330 LINE INPUT#1,L$ 

340 SL=LEN(L$) 

350 FOR 1=0 TO N 

360 J= INSTRC^LS^SlSd)) : IF J=0 THEN 380 
370 PRINT02, LEFT$(L$,J-1); S2$(I); 

375 L$= MID$(L$,J + LEN(S1$(I))) : GOTO 360 
380 NEXT I 

390 IF SL=255 THEN PRINT#2,L$; ELSE PRINT#2,L$ 

400 GOTO 320 
410 CLOSE 

420 IF F2$ <> "" THEN MENU 

430 1= INSTR(F1$/'."): IF 1=0 THEN F1$= F1$ + ".DO" 

440 KILL FI $: NAME F3$ AS F1$ 

450 MENU 

460 ER= -1: RESUME NEXT 
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Teachers will find the “Classroom Curve” program especially useful. Based on a standard 
deviation and the number of students, this program will print out a report showing the class 
mean, each student’s raw score, each student’s curved score, the curved mean, the SAT equivalent 
of the score, and the percentile score. 

Using the Program 

This program assumes that the data (student names and scores) resides in two .DO (text) files. 
One .DO file (NAMES. DO) must contain the students’ names; the second .DO file contains the 
student scores for a particular test. 

The student names may be entered into the NAMES. DO file in the form that you would like 
them to appear on the printout (last name first or otherwise). To create NAMES. DO, move the 
Main Menu cursor to TEXT and press ENTER. When asked FILE TO EDIT?, type NAMES and 
press ENTER. Then enter the students’ names. For example: 



When you are through entering the names, press F8 to return to the Main Menu. 

To enter test scores into a .DO file, move the Main Menu cursor to TEXT and press ENTER. 
When asked FILE TO EDIT?, enter the name of the file you will use to store test results. By using 
a name that suggests the type of test you are scoring, you can easily identify the contents of the 
test files. For instance you could use CHMFNL to store the results of a chemistry final. 

Once you have entered a file name, you can begin entering the student data. For each student, 
you must enter a number that identifies the student’s position in the NAMES. DO file (1 for first, 2 
for second, and so on), a comma, and then the grade. Always end the list with student number 999 
and grade 999. For example: 
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Referring to the previous NAMES.DO file, this example shows that Kevin Jensen got an 89, Dave 
O Brien a 100, Paul Shafer a 90, and Denise Stein a 95. Once you are through entering the test 
results, press F8 to return to the Main Menu. 

When you run the Classroom Curve program, you’ll be prompted for the name of the .DO file 
containing the test scores. In the previous example, this would be CHMFNL. Type this in and 
press ENTER. 

Next you’ll be asked if you want the printout to be listed with highest score first. If you do, 
press Y or y (for yes). If you say no, the list will appear in the same order that the names occur in 
NAMES.DO. 

Then you’ll be asked what you want to call the report. This title will be printed at the top of the 
report. In the example, you might want to use “Chemistry Final”. Finally, the program will tell 
you to adjust the paper in the printer and press ENTER to begin printing. For the previous exam- 
ple, the printout would look like this: 


CHEMISTRY FINAL 

Mean = 93.5 Standard Deviation = 4.387482193696 

Curved mean =75 c 


Name 

1 Dave O'Brien 
4 Denise Stein 

2 Paul Shafer 

3 Kevin Jensen 


S.D 

. i s 

8.3333333333333 

points 


Raw 

Score Curved Grade 

SAT Style 

%ILE 


100 

86 

650 

93.1 


95 

77 

530 

63.3 


90 

68 

420 

20.8 


89 

66 

400 

14.5 


Note that this program uses the LPRINT command, which sends the data out of the LPT 
(parallel) port on the Model 100. If you’re using a serial printer with your Model 100, this program 
will require modification before it will execute. If you use a non-Radio Shack printer, you may 
need to run the Line Feed Program listed elsewhere in this book. 


Requirements 

This program requires 3.5K of RAM for the program, RAM for the two .DO files, and a 
printer. 


Listing 


10 • *** Classroom Curve *** 

20 ' *** Written by Robert Curtis *** 

30 CLS: PRINTS 50, "Classroom Curve" 

40 PRINTS 200, "Press any key to continue..." 

50 A$=INKEY$: IF A$="" THEN 50 

60 CLEAR 5000 

70 DEFINT I-N 

80 CLS: PRINT 

90 PRINT 


23 


Model 100 Companion 


100 1=1: N=1 : NN=1 : R=0: SX=0: SS=0: 

110 A A =80 'Change this value for a different maximum number of 
students 

120 UA=. 31938153#: UB=-. 356563782#: 'Constants for %1LE 
130 UC=1 .78147937#: UD=1 .330274429#: 'Calculations 
140 UE=-1. 821 255978#: U6=2. 506628275# 

150 H9 = 75 ' Change this value for a different mean 

160 S9 = 12.5 ' This is the value for 100/(1 S.D.) 

170 LINE INPUT "What .DO file has data for this test? ";F$ 
180 Y$=LEFT$(Y$ / 1 ) 

190 INPUT "Should the report by listed starting at the highest 
score (Y/N) ";Y$ 

200 IF Y$="y" THEN Y$="Y" 

210 IF Y$="n" THEN Y$="N" 

220 IF Y$ <> "Y" AND Y$ <> "N" THEN PRINT "Type <Y> or <N> 
only!": GOTO 190 

230 IF Y$="Y" THEN F0=1 ELSE F0=0 

240 DIM Z(AA),X(AA),B$(AA),N$(AA),N0(AA),N1(AA),N2(AA),UP(AA) 
250 PRINT "Loading File NAMES. DO" 

260 OPEN "NAMES. DO" FOR INPUT AS 1 
270 J=1 

280 LINE INPUT#1,NS(J) 

290 IF EOF (1 ) THEN 310 
300 J=J+1 : GOTO 280 
310 CLOSE 1 

320 PRINT "Loading File "; F$ 

330 OPEN F$ FOR INPUT AS 1 

340 LINE INPUT#1, TITLES 

350 IF LEN (TITLES) < 8 THEN GOSUB 1090 

360 INPUT#1 / Z(I),X(I) 

370 IF X (I ) >= 900 OR Z(I) >= 900 GOTO 440 
380 IF EOF (1 ) THEN 440 
390 SX=SX + X (I) 

400 SS=SS + X(I)*X(I) 

410 1=1+1 
420 R=R+1 
430 GOTO 360 
440 CLOSE 1 
450 1=1-1 

460 IF F0=1 THEN GOSUB 940: ' Flag for ordering 
470 PRINT "Calculating!" 

480 XM=SX/R: 'Mean 

490 SO=R*SS-SX*SX 

500 SD=SQR(S0): SD=SD/R: ' Standard deviation 
510 J=1 

520 B$(J )=NS (Z (J ) ) : ' Loop begins here 
530 NO (J )=INT ( ( (X (J )-XM) /SD)*10Q) 

540 N1 (J)=N0(J ) /S9+M9: 'Grade M9 is mean of grades 
550 N2(J) = (10*INT((N0(J)+505)/10)): ' SAT style score 
560 UZ=N0(J)/100: 'Calculates %ILE 

570 UV=-.5*UZ*UZ 
580 UY=1/(1+.232642*UZ) 

590 UF=UC+UY* (UD*UY+UE) 

600 UP=1 -EXP (UV) /UG * UY * (UA+UY*(UB+UY*UF)) 
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610 UP (J )=100*UP: ' %ILE 

620 IF UPCJ) < 0 THEN UP(J)=0 

630 IF UPCJ) > 100 THEN UP(J)=100 

640 IF J=I THEN 660 

650 J=J+1 : GOTO 520: 1 Loop ends here 

660 FF$=LEFT$(F$,LEN(F$)-4) + "K" 

670 OPEN FF$ FOR OUTPUT AS 1 

680 FOR J=1 TO I 

690 PRINT#1, Z(J); ,, / ";N1 <J) 

700 NEXT J 
710 CLOSE 1 
720 J=1 
730 J J =1 

740 INPUT "Set printer to new page and press <ENTER>";BB$ 

750 'Printing Loop begins here 
760 PZ=4 

770 LPRINT TITLES 

780 LPRINT "Mean = ";XM, "Standard Deviation = ";SD 
790 LPRINT "Curved mean = ";M9,"one S.D. is ";100/CS9- 
.5);"points" 

800 LPRINT " " 

810 LPRINT "Name"; TAB (32) "Raw Score"; TAB (43) "Curved Grade"; 
TABC58) "SAT Style %ILE" 

820 LPRINT Z (J ) ; TAB(4) B$(J); TAB(36) X (J ) ; TABC46) N1(J); 

TAB (59) ; N2(J); TAB(63)" "; 

830 LPRINT USING"###.#"; UPCJ) 

840 ' Inner printing Loop (NAMES) begins here 
850 PZ=PZ+1 

860 IF JJ = I THEN GOTO 890 
870 J=J+1 : JJ=JJ+1 

880 GOTO 820: ' Inner printing Loop ends here 
890 IF PZ > 60 THEN LPRINT CHRSC12): GOTO 730 
900 A$=INKEY$: IF A$= "" THEN END 

910 PZ=66-PZ: FOR ZZ=1 TO PZ: LPRINT CHR$(138): NEXT ZZ: GOTO 730 
920 1 Outer printing Loop ends here 

930 END 

940 PRINT: PRINT "Ordering the List... "; 

950 FOR K= 1 TO I 
960 FOR L=1 TO I-K 
970 X=X(L) 

980 Z=Z(L) 

990 Y=X (L+1 ) 

1000 ZZ=Z (L+1 ) 

1010 IF X > Y THEN 1060 

1020 X (L) =Y 

1030 Z(L)=ZZ 

1040 X (L+1 ) =X 

1050 Z (L+1 ) =Z 

1060 NEXT L 

1070 NEXT K 

1080 RETURN 

1090 CLOSE 1 

1100 OPEN F$ FOR INPUT AS 1 

1110 LINE INPUT "What do you want to call this report?";TITLE$ 
1120 RETURN 



Text File Addition 


The “Text File Addition” program allows you to add rows and columns of numbers that are 
stored in a text (.DO) file. When you run this program, the subtotals of each row and column can 
be displayed on the screen or sent to a printer. 

Using the Program 

When you run the program, a list of all .BA and .DO files currently stored in RAM will be 
displayed. In response to the prompt, you should type in the name of the .DO file (you don’t need to 
include the extension) containing the numbers you wish to add. You will then see the following 
menu: 



At this point you can select an option from the menu to receive further instructions, send the 
results to the screen or the printer, create or edit a text file, specify a new file to be totaled, or 
return to the Main Menu. Once you display the results on the screen, press any key to return to the 
program menu. 

The numbers to be totaled must appear in the text file separated by commas. For example, the 
following series of numbers: 
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would result in the following display: 



Requirements 

This program requires 2K of RAM for the program. (Additional memory may be required 
depending on the size of the .DO file that contains the data to be added.) 


Listing 


10 * *** Text File Addition Program *** 

20 ' *** Copyright 1983 by Robert L. Ripley *** 

30 CLS: PRINTS 45, "Text File Addition Program" 

40 PRINTS 200, "Press any key to continue..." 

50 A$=INKEY$: IF A$="" THEN 50 
60 CLS 

70 MAXFILES=2 
80 DIM B(25) 

90 RV$=CHR$(27)+"p": NV$=CHR$(27)+"q" 

100 FW=6 

110 ON ERROR GOTO 580 
120 FILES 

130 PRINT S 200,"";: INPUT "What .DO file needs to be added"; F$: 
OPEN F$ FOR INPUT AS 1 
140 CLS: PRINT "<1> Instructions" 

150 PRINT "<2> Results to the Printer" 

160 PRINT "<3> Results to the Screen" 

170 PRINT "<4> Create or Edit .DO Fite" 

180 PRINT "<5> Specify New File" 

190 PRINT "<6> Return to Main Menu" 

200 PRINT: Q$=INPUT$(1 ) : ON VAL(Q$) GOSUB 500,220,220,560,60,570 

210 GOTO 140 

220 CLS: L=0 

230 IF E0FC1) THEN 340 

240 LINE INPUT#1,A$: B$=A$ 

250 N=0 

260 IF INSTR (1 ,B$,",") <> 0 THEN GOSUB 440: GOTO 260 
270 GOSUB 440 
280 T=T+TL 
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290 PRINTS) L+N*FW,RV$;TL;NV$ 

300 IF Q=2 THEN LPRINT A$;TAB(65>; "Subtot= ";TL 
310 TL=0 
320 L=L+40 
330 GOTO 230 

340 PRINT STRING$(40,"-") 

350 L=L+40 

360 IF Q=2 THEN LPRINT STRING$(S0,"-") 

370 FOR 1=1 TO N: PRINTS! L+CI-1 )*FW,8(I); 

380 IF Q=2 THEN LPRINT B(I); 

390 NEXT I 

400 PRINTS) L+N*FW,RV$;T;NV$ 

410 IF Q=2 THEN LPRINT TAB (65); "Total= ";T 
420 A$=INKEY$: IF A$=" n THEN 420 
430 RETURN 
440 Y=VAL (B$) 

450 B$=RIGHT$(8$,LEN(B$)-INSTR(1,B$,",")) 

460 N=N+1 

470 TL=TL+Y : BCN)=B(N)+Y 
480 PRINTS) (N-1)*FW+L,Y 
490 RETURN 

500 CLS: PRINT "Enter data in a .DO file with" 

510 PRINT "variables separated by commas." 

520 PRINT "The rows and columns will be totaled." 

530 PRINT "A column of string data will be ignored." 

540 PRINT: PRINT "Press any key to continue...";: A$=INPUT$(1) 
550 RETURN 

560 CALL 24046: 'GOTO TEXT EDITOR 
570 MENU 

580 IF ERL=130 THEN BEEP: PRINTS! 280, "No such file ";F$;: 
RESUME 130 
590 ON ERROR GOTO 0 
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The “Checkbook Statistician” program allows you to keep track of your checkbook in an orga- 
nized manner. With this program you can 

• Enter checks and deposits 

• Display or print a list of outstanding checks and deposits 

• Record cancelled checks and deposits that were credited to your account 

• Display or print a list of all checks you’ve written 

• Review your bank statement. 

Furthermore, the program can remind you when your regular bills (insurance, utilities, and so 
forth) are due. 

Using the Program 

Before you use the program, you must first create a text file named STAT.DO. You can do this 
by running the Model 100’s built-in TEXT program and entering STAT in response to the 
prompt. Initially, you do not need to enter any data into the .DO file. 



When you first run the program, select option #1 to begin recording the checks you’ve written 
and the deposits you’ve made. After a brief introductory message, you’ll be asked the check 
number of the first check you wrote, the amount, the amount of the deposit (if any), the month, 
day, and year the check was written, to whom the check was made out; lastly, you can enter any 
comments of 12 characters or less. 

Next you’ll be asked if this information was listed on the last bank statement. Once you’ve 
answered this question, the data will be displayed on the screen, and you can change it if neces- 
sary by starting over. If there are no changes, the data will be stored in STAT.DO. If you want it 
printed, you must have a parallel printer connected to the Model 100. If you don’t want it printed, 
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the program will prompt you for the next check. Repeat the procedure for each check and deposit. 
If you don’t have any more checks or deposits to record, type 0 and press ENTER, and you’ll return 
to the first menu. 

If you want to see a list of all outstanding checks and deposits, select option #2, and the list of 
all checks and deposits that did not appear on your last bank statement will be displayed. Press 
ENTER to return to the menu. 

When you receive a bank statement and want to update the STAT.DO file, select option #3, and 
you’ll be asked for the number of the check or deposit that the bank has recorded. When all 
transactions have been accounted for, type 0 and press ENTER. Press ENTER again to return to the 
menu. 

For a complete list of checks and deposits, select option #4. You can specify individual months 
by entering the month number, or you can see a list of all checks and deposits by typing 13 and 
pressing ENTER. Press ENTER again to return to the menu. 

Option #5 will return you to the Main Menu. If you need to alter the information entered for a 
check or deposit, you should use the Model 100’s built-in TEXT program to edit the STAT.DO file. 

Option #6 will allow you to review any outstanding checks and deposits and will give you a 
report of your current balance. 

To see the list of your “regular” bills (along with their amounts and due dates) select option #1. 
When asked if you want to see the list, answer YES and press ENTER. The program as listed 
contains a sample list of bills. To enter your own regular list, modify program lines 1600 through 
1660. 

Requirements 

This program requires 7K of RAM. 


Listing 

10 ' *** checkbook Statistician *** 

20 1 *** Copyright 1983 by Robert L. Ripley *** 

30 CLS: PRINTS 50, "Checkbook Statistician" 

40 PRINTS 200, "Press any key to continue..." 

50 A$=INKEY$: IF A$= "" THEN 50 
60 CLEAR 6000 
70 DEFSNG M 

80 DEFINT R,D,E,F,S,I,J,C: CLS 

90 C=75: CC=12: 'C=MAXIMUM # OF CHECKS KEPT IN FILE - 
CC=DIFFERENCE BETWEEN MAX AND MIN # OF FILES 
100 DIM N(C),A(C),D(C),E(C),F(C),B(C),M(C),Z(20),R(C), 
P$(C),C$(C),H(C) 

110 ' N=CHECK #, A=AM0UNT,B=BALANCE,D=DAY,E=M0NTH,F=YEAR 

120 ' R=RETURN INC,P$ TO WHOM 

130 Z$="STAT.D0": 'Check File Name 

140 G0SU8 850 

150 'This gets data from files 

160 CLS: PRINT "<1> Enter checks and deposits" 

170 PRINT "<2> List outstanding checks and deposits" 

180 PRINT "<3> Enter outstanding checks and deposits" 
190 PRINT "<4> List of all checks" 
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200 PRINT "<5> Change a check/Return to Main Menu" 

210 PRINT "<6> Review Bank Statement"; 

220 INPUT Q: ON Q GOSUB 500,740,250,1010,1110,1130 

230 PRINT "Present file is ";Z$: INPUT "Press <ENTER> F$ 

240 GOTO 160 

250 'ENTER CANCELLED CHECKS 

260 CLSrPRINT "Type in the check numbers and deposits that have 
been returned from the bank" 

270 PRINT "Type <0> to exit" 

280 FOR 1=1 TO 20 
290 INPUT M(I) 

300 IF M ( I ) =0 THEN S3=I-1 : GOTO 340 
310 NEXT I 

320 PRINT "Buffer full, try again later" 

330 S3=I 

340 FOR I=S TO 1 STEP -1 
350 IF R (I)=0 THEN R6=I 
360 NEXT I 

370 FOR I=S TO R6 STEP -1 

380 FOR K=1 TO S3 

390 IF M(K)=0 THEN 420 

400 IF N (I )=M (K) THEN IF R(I)=1 THEN Z(K)=1: PRINT"CheckK";N (I) 
" already cancelled" ELSE R (I ) =1 : Z(K)=1 
410 NEXT K 
420 NEXT I 
430 GOSUB 450 
440 GOSUB 960: RETURN 

450 'CHECK FOR ERROR IN RETURNED CHECK ENTRY 
460 FOR 1=1 TO S3 

470 IF Z(I) <> 1 THEN PRINT "Check ";M(I); M not found" 

480 NEXT I 
490 RETURN 

500 CLS : 'BANK BALANCE 

510 IF S=0 THEN PRINT "Your present balance is $0.00": B(0)=0: 
GOTO 530 

520 PRINT "Your present balance is ";B(S) 

530 BC0)=B(S) 

540 INPUT "Do you want a list of regular bills ";Y$ 

550 IF LEFTS (Y$,1 )="Y" THEN GOSUB 1580 

560 PRINT "The present value of each entry is displayed. If you 
do not want to change it, press <ENTER>." 

570 PRINT "Give each check or deposit its own number. (You may 
use tenths, e.g., 101.1)." 

580 FOR I=S+1 TO C 

590 PRINT "Enter <Q> after last check" 

600 PRINT "Your last entered check was # ";N(I-1) 

610 GOSUB 1280 

620 IF N (I)=0 THEN 680 

630 INPUT "Do you want this record printed";Y$: IF 
LEFT$(Y$,1 )="Y" THEN GOSUB 1550 
640 PRINT 
650 NEXT I 

660 PRINT "RAM Buffer Full — Add more checks later" 

670 1=1+1 
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680 S5=S: S=I-1 : IF S=S5+1 THEN RETURN 
690 OPEN Z$ FOR APPEND AS 1 
700 FOR I=S5+1 TO S 

710 PRINT#1,N(I);A(I);B(I);D(I);E(I);F(I);R(I);"/' + PSCD;"," + 
C$(I) + ",";H(I) 

720 NEXT I 

730 CLOSE 1: RETURN 

740 'LIST OF MISSING CHECKS 

750 CLS : C3=0: D3=0 

760 PRINT "Missing checks and deposits are as follows..."; 

770 FOR 1=1 TO S 

780 IF R (I) > 0 THEN 810 

790 GOSUB 1230 

800 C3=C3+A (I) : D3=D3+H(I) 

810 NEXT I 

820 PRINT "Total of missing checks is ";C3 
830 PRINT "Total of missing deposits is ";D3 
840 RETORN 

850 'DATA FROM FILES 
860 GOSUB 1770 
870 FOR 1=1 TO C 
880 IF EOF (1 ) THEN 910 

890 INPUT#1,N(I),A(I) / B(I) / D(I),E(I) / F(I) / R(I) / P$(I),CS(I),H(I) 

900 NEXT I 

910 S=I-1 : CLOSE 1 

920 PRINT "There are ";S;" records in the file." 

930 IF S > C-CC THEN GOSUB 1690: 'ELIMINATE FIRST 12 RECORDS 
940 FOR 1=1 TO 500: NEXT I 
950 RETURN 

960 GOSUB 1790: 'DATA TO FILES 
970 FOR 1=1 TO S 

980 PRINT#1 / N(I);A(I);B(I);D(I);E(I);F(I);R(I); , V' + P$(I); + V' 
+ C$(I) + V;H<I) 

990 NEXT I 

1000 CLOSE 1: PRINT S; "records in file": RETURN 
1010 'LIST OF ALL CHECKS 

1020 CLS:INPUT "Which month do you wanted printed? (If all, type 
13) "; 16 

1030 T6=0: T7=0 

1040 FOR 1=1 TO S 

1050 IF 16=13 THEN GOSUB 1230 

1060 IF I6=D (I) THEN GOSUB 1230 

1070 NEXT I 

1080 PRINT "Total of checks is ";T6 
1090 PRINT "Total of deposits is ";T7 
1100 RETURN 
1110 'CHANGE A CHECK 

1120 PRINT "Use the Text Editor to edit ";Z$: FOR 1=1 TO 600: 

NEXT I: MENU 

1130 'CORRECT BALANCE CALCULATIONS 
1140 GOSUB 740 

1150 FOR ZZ=1 TO 500 : NEXT ZZ 

1155 CLS:INPUT "What is the closing balance of this 
statement" ;B3 
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1160 PRINT "Your checkbook balance is ";B(S) 

1170 PRINT "Your balance should be ";B3 - C3 + D3 
1180 S2=B3-C3+D3 

1190 IF S2-B(S) > 0 THEN PRINT "Add ";S2-B(S); " to your balance" 
1200 IF S2-BCS) < 0 THEN PRINT "Subtract ";-( S2-B (S) ) ; " from 
your balance" 

1210 IF S2-B(S) = 0 THEN PRINT "No correction needed" 

1220 RETURN 
1230 'PRINT DATA 

1240 PRINT "Chk # ";N(I);TAB(20);"Amt ";A(I): PRINT 

"Dep ";H (I); TAB (20); "Date ";D(I);E(I);F(I) : PRINT 

"Bal ";B(I);TAB(20);"To whom ";P$(I): PRINT 
"Comment ";C$(I);TAB(20);"Cancelled (1=Yes)";R(I) 

1250 PRINT STRINGS (40,"*"); 

1260 T6=T6+A(I) : T7=T7+H(I) 

1270 RETURN 
1280 'INPUT DATA 
1290 IF I < 1 THEN 1320 
1300 N(I)=INT (N(I~1)+1) 

1310 D (I)=D (1-1 ) : E(I)=E(I-1): F (I)=F (1-1 ) 

1320 PRINT "Chk. #";N(I); 

1330 INPUT N (I) 

1340 IF N(I)=0 THEN RETURN 
1350 PRINT "Amount"; A (I); 

1360 INPUT A (I ) 

1370 PRINT "Deposi t";H (I) ; 

1380 INPUT H (I) 

1390 PRINT "Month is ";D(I); 

1400 INPUT D (I) 

1410 PRINT "Day is ";E(I); 

1420 INPUT E(I) 

1430 PRINT "Year is ";F(I); 

1440 INPUT F (I ) 

1450 PRINT "To whom ";P$(I); 

1460 INPUT P$(I) 

1470 PRINT "Comment ";C$(I); 

1480 INPUT C$ (I) : C$(I)=LEFT$(C$(I),12) 

1490 R (I )=0 

1500 INPUT "Is check cancelled or deposit credited"; Y$: IF 
LEFTS (Y$,1 )="Y" THEN R(I)=1 
1510 B(I)=B(I-1)+H(I)-A(I) 

1520 CLS: G0SUB 1240 

1530 INPUT "Do you wish to change anything ";Y$: IF 
LEFTS (Y$, 1 ) ="Y" THEN 1320 
1540 RETURN 

1550 LPRINT TAB(1);N(I);TAB(1G);A(I);TAB(21);H(I) ; TAB (30); 

D(1);E(I);F (I);TAB(42);B (I);TAB(54);P$ (I);TAB(66);C$ (I) ; 

TAB (76) ; : IF R(I)=1 THEN LPRINT 1 ELSE LPRINT 
1560 LPRINT 
1570 RETURN 

1580 PRINT " Regular Bills" 

1590 PRINT "To whom Amount Date Due" 

1600 PRINT "BOB'S INS 45 18" 

1610 PRINT "PRUDENTIAL 264.21 01" 
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1620 PRINT "IDS 314.10 

1630 PRINT "GINGER'S INS 245.25 

1640 PRINT "BOB'S INS FED UN LI 93.52 
1650 PRINT "SERVICE INS 241.00 

1660 PRINT "CONTINENTAL CABLE 23.75 
1670 INPUT "Press <ENTER>"; Y$ 

1680 RETURN 

1690 PRINT "I am eliminating the first 
fi le" 


28" 

06-01 " 

07- 11" 

08- 01 " 
15" 


";CC;" records in the 


1700 FOR 1=1 TO S-CC 

1710 N (I)=N(I+CC) : A(I)=A(I+CC) : B(I)=B(I+CC) : D (I)=D (I+CC) : 

E CI)=E(I+CC) : F(I)=F (I+CC) : R(I)=R (I+CC) : P$(I)=P$(I+CC) : 
C$(I)=C$(I+CC) : H(I)=H (I+CC) 

1720 NEXT I 

1730 PRINT "There will now be ";I;" records in the file" 


1740 S=I 

1750 GOSUB 960: 'PUT DATA IN FILE 
1760 RETURN 

1770 ON ERROR GOTO 1800 

1780 OPEN Z$ FOR INPUT AS 1: RETURN 

1790 OPEN Z$ FOR OUTPUT AS 1: RETURN 

1800 IF ERR=52 THEN OPEN Z$ FOR APPEND AS 1 : CLOSE 1 : RESUME 
1810 PRINT “ERROR ";ERR; " LINE # ERL 
1820 BEEP: BEEP: BEEP: END 
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The “Calculator” program allows you to make arithmetic calculations and to convert between 
hexadecimal, octal, and decimal numbers. There are a number of functions built into the pro- 
gram. These functions allow you to 

• Convert hexadecimal numbers to decimal numbers (and vice versa). 

• Convert octal numbers to their hexadecimal and decimal equivalents. 

• Add and subtract hexadecimal numbers. 

• Use your Model 100 as an alarm clock. 

• Use the Model 100 as a calculator to compute the standard math functions (addition, subtrac- 
tion, multiplication, division, exponents, and square roots), as well as trig functions (tangent, 
cosine, and sine). 

Using the Program 

When you run the program, a menu will be displayed. Type in the number that corresponds to 
the function you want and press ENTER. In each case, you will be prompted to enter a number. 
When typing in letters in response to prompts, always type in uppercase letters. 


<1> 

Hex -> Deci 

<2> 

Deci -> Hex 

<3> 

Octal -> Hex/Deci 

<4> 

Alarm 

<5> 

Add Hex 

<6> 

Subtract Hex 

<7> 

Calculator 



<8> 

Exit Program 




Requirements 

This program requires a little over 5K of RAM. 


Listing 

10 * *** Calculator Program *** 

20 ' *** Written by Robert Ripley *** 

25 ON ERROR GOTO 2000 
30 CLS 

40 PRINTS! 50, "Calculator Program" 

5C PRINTS) 200, "Press any key to continue..." 
60 A$=INKEY$: IF A$= "" THEN 60 
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70 SCREEN 0,0 

80 CLS: PRINT: PRINT" <1> Hex -> Deci <2> Deci -> Hex" 

90 PRINT" <3> Octal -> Hex/Deci <4> Alarm" 

100 PRINT" <5> Add Hex <6> Subtract Hex" 

110 PRINT" <7> Calculator" 

130 PRINT" <8> Exit Program" 

140 PT$=" Type <0> to return to menu" 

145 PRINT "Please enter <1>-<8>: "; 

150 Q$=INPUT$ (1 ) 

160 IF Q$ < "1" OR Q$ > "8" THEN BEEP: GOTO 150 
165 Q=VAL(Q$) 

170 ON Q GOSUB 200,340,460,590,690,690,770,2050 
180 GOTO 80 
200 CLS 

210 PRINTS 15, "Hex -> Deci" 

220 PRINT PT$ 

230 X=102 

240 GOSUB 1600: IF ER THEN BEEP: PRINTS X-40,"": GOTO 240 
250 IF H$="0" THEN RETURN 

260 GOSUB 280: PRINTS X, "Dec # =";T: X=X+40: IF X > 260 THEN 

X=262 

270 GOTO 240 
280 T=0 

290 FOR J=1 TO LEN (H$) 

300 T=T + (ASC(MID$(H$,J,1))-48) * 16 " (LEN(H$)-J) 

320 NEXT J 
330 RETURN 

340 CLS: PRINTS 15, "Dec -> Hex" 

350 PRINT PTS 
360 X=102 

370 INPUT "Dec #";A: IF A = 0 THEN RETURN 
380 IF A THEN GOSUB 410 : GOTO 380 

390 PRINTS X,"Hex # = ";A$ : X=X+40: IF X > 260 THEN X= 262 

400 A$="" : GOTO 370 

410 D = A MOD 16 

420 IF D > 9 THEN D=D+7 

430 A$= CHR$ (D+48) + A$ 

440 A= INT (A/16) 

450 RETURN 

460 CLS: PRINT S 13, "Octal -> Hex/Deci" 

470 PRINT PT$ 

480 X=102 

490 A$="": GOSUB 1700 

500 IF ER THEN BEEP: PRINTS X-40,"": GOTO 490 
510 IF DC= 0 THEN RETURN 
515 A=DC 

520 IF A THEN GOSUB 410: GOTO 520 

530 PRINTS X,"HEX# = ";A$: X=X+40: IF X > 260 THEN PRINT: X=262 
540 PRINTS X,"DEC# = ";DC: X=X+40: IF X > 260 THEN X=262 
550 GOTO 490 

590 CLS: PRINTS 15, "Alarm":PRINT "The time is ";TIME$ 

600 GOSUB 640 
610 GOSUB 1800 
620 GOSUB 640 
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630 PRINTS) 287, "Press any key to continue..."; 

635 ZZ$=INKEY$: IF ZZ$="" THEN 635 
637 RETURN 

640 IF TM THEN PRINTS) 200, "The Alarm is currently set to ";TM$ 
RETURN 

650 PRINTS) 200, "The Alarm is not currently set ": 

RETURN 

660 FOR J=1 TO 30 
670 SOUND (J *100), 10 
680 NEXT J: RETURN 
690 REM 

695 CLS: IF Q=5 THEN PRINTS) 15, "Add Hex #" ELSE PRINTS 15, 
"Subtract Hex #" 

700 PRINTS 45, "Enter <0> for both numbers to exit" 

705 INPUT "1st #";H$ 

710 GOSUB 1610: GOSUB 280: N1=T 
715 INPUT "2nd #";H$ 

720 GOSUB 1610: GOSUB 280 
725 IF T=0 AND N1=0 THEN RETURN 
730 IF Q=5 THEN A=N1+T ELSE A=N1-T 
735 DC=A: A$="" 

740 IF A THEN GOSUB 410: GOTO 740 

750 PRINT " Total: Dec=";DC;" Hex= ";A$ 

760 GOTO 705 

770 DIM E$ (30) : DEFINT I,J,K,L 
780 CLS: ON ERROR GOTO 1250 

790 PRINTS 160, "Enter only uppercase for operators" 

800 PRINT " <+>, <->, <*>, </>, PRINT "S<Q>. Root,<S>in, 

<CO>si ne,<T>an,<E>xi t" : PRINT "St<0>re, <R>ecall, <M+>, <M-> 
<CM>"; 

810 PI=3. 141592653589795#: ME$= "MEMORY =" 

820 PRINTS 0, STRINGS (40," ");: PRINTS 0,"1st #?"; A;" "; : 

PRINTS 7,; : LINE <0,31 >-(239,31 > 

830 GOSUB 840: GOTO 890 

840 FOR 1=1 TO 30: E$(I)=INPUT$(1 ) : IF ASC(E$(I))=8 THEN 1=1-2: 
A$=LEFT$(A$,LEN(A$)-1): PRINTS 7,A$;" ";: PRINTS (7+1),;: 

NEXT I 

850 IF (ASC (E$(I) ) < 48 OR ASC (E$ (I) )>57) AND E$(I) <> "." AND 
E$ (I ) <> "E" THEN RETURN 
860 A$=A$+E$ (I) : PRINTS 7, AS; 

870 IF A$= "E" THEN RETURN 

880 NEXT I: RETURN 

890 IF A$="E" THEN RETURN ' 

90U IF AS <> "" THEN A=VAL(A$): A$="" 

910 T$=E$ (I) 

930 PRINTS 25, "Operator? ";T$; 

940 IF T$= "M" OR T$= "C" THEN PRINTS 35, T$; : T1$=INPUT$(1 ) : 
T$=T$+T1 $: PRINTS 1 20,STRING$ (39," "); 

950 IF A$= "E" THEN RETURN 
960 IF T$= "=" THEN T$= "+" 

970 IF T$= "M=" THEN T$= "M+" 

980 PRINTS 25, "Operator? ";T$;" 

990 D=ASC(T$) 

1000 IF T$= "*" THEN 1040 
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1010 PRINTS 80, STRINGS (40," "); 

1020 PRINTS 40, STRINGS (40," "); 

1030 IF D > 47 THEN 1080 

1040 PRINTS 40,;: INPUT"2nd D 

1050 PRINT A;T$;B; 

1060 ON D-41 GOSUB 1190,1200,930,1220,1230,1240 
1070 IF T$="~" THEN PRINT A“B: A=A~B: GOTO 820 
1080 IF T$="S" THEN B=SIN (A/180*PI) 

1090 IF T$="CO" THEN B=COS (A/1 8G*PI) 

1100 IF T$="Q" THEN B=SQR (A) 

1110 IF T$="T" THEN B=TAN(A/180*PI) 

1120 IF T$="0" THEN M=A: PRINTS 120,ME$;M;STRING$(20," GOTO 

6810 

1130 IF T$="R" THEN A=M: GOTO 820 

1140 IF T$="M+" THEN M=M+A: PRINTS 120,ME$;M;: GOTO 820 

1150 IF T$="CM" THEN M=0: PRINTS 120,ME$;M;: GOTO 820 

1160 IF T$="M-"THEN M=M-A : PRINTS 120 

1170 IF D > 48 THEN PRINT T$;"(";A;")=";B;: A=B 

1180 GOTO 820 

1190 PRINT A*B: A=A*B: RETURN 

1200 PRINT A+B: A=A+B 

1210 RETURN 

1220 PRINT A-B: A=A-B 

1230 RETURN 

1240 PRINT A/B: A=A/B: RETURN 
1250 PRINT "ERROR": RESUME 780 
1260 RETURN 
1270 RETURN 
1280 RETURN 

1600 INPUT "HEX: ";H$ : ER = 0 
1610 IF LEN (H$)=Q THEN ER=1 : RETURN 
1620 FOR J=1 TO LEN (H$) 

1630 D = ASC(MID$(H$,J,1)) 

1640 IF D < 48 OR (D > 57 AND D < 65) OR (D > 70 AND D < 97) OR D 
> 102 THEN ER=1 : J=LEN(H$) : GOTO 1670 
1650 IF D > 57 THEN D=57+(D MOD 32) 

1660 MID$(H$,J)=CHR$(D) 

1670 NEXT J 
1680 RETURN 

1700 INPUT "OCTAL: ";0C$: ER=0: LC=LEN(OC$) 

1705 DC=0 

1710 IF LC=0 THEN ER=1 : RETURN 

1720 FOR J=1 TO LC 

1730 D = ASC (MID$ (0C$, J,1 ) ) 

1740 IF D < 48 OR D > 55 THEN ER=1 : J=LC: GOTO 1760 
1750 DC=DC+(D-48)*8"(LC-J) 

1760 NEXT J 
1770 RETURN 

1800 PRINTS 80, "Enter the Alarm time: "; : INPUT A2$ 

1805 IF LEFT$(A2$,1)="0" OR LEFTS (A2$,1 )="o" THEN TIMES OFF: 

TM=0: RETURN 
1810 ER=0 

1820 T (1 )=VAL(LEFT$(A2S,2) ) 

1830 T(2)=VAL(MID$(A2$,4,2)) 
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1840 T(3)=VAL(MID$(A2$,7,2)) 

1850 IF CT Cl ) < 0) OR (T(1) > 23) THEN ER = 1 

1860 IF (T (2) < 0) OR (T(2) > 59) THEN ER = 1 

1370 IF (T (3) < 0) OR CT (3) > 59) THEN ER = 1 

1380 IF ER THEN BEEP: PRINTS 40/'": GOTO 1800 

1890 FOR K=1 TO 3 
1900 T$(K)=RIGHT$(STR$(T(K)),2) 

1910 IF LEFT$(T$(K),1) = " " THEN MID$ (T$ (K) ,1 )="G" 
1920 NEXT K 

1930 TMS=T$(1 ) + + T$(2) + + T$C3) 

1950 ON TIME$=TM$ GOSUB 660 
1960 TIMES ON: TM=1 
1970 RETURN 

2000 IF ERL <> 1330 THEN 2047 

2010 FOR ZX=1 TO 15 

2020 TZ(ZX)=0: E(ZX)=0 

2030 FOR ZY=1 TO 20 

2040 A (ZY / ZX)=0: TT(ZY)=0 

2045 NEXT ZY: NEXT ZX: RESUME NEXT 

2047 ON ERROR GOTO 0: END 

2050 MENU 



Mailing Label 


The “Mailing Label” program allows you to print out names and addresses on a parallel print- 
er using fanfold mailing labels. The program is set up for labels that are 15/16" by 3 13/16" in size, 
two columns per page. 


Using the Program 

The names and addresses can be stored in a text (.DO) file in any format you wish as long as a 
blank line separates individual names and addresses in the file. For instance, 


Asher Fitzgerald 
Route 3 
Box 246A 

Florence, CA 95429 

Jean Freeman 
3322 Arlington 
New York, NY 02024 

Since the program prints the names and addresses in a two-column format, the labels would 
look like this when printed: 

Jean Freeman Asher Fitzgerald 

3322 Arlington Route 3 

New York, NY 02024 Box 246A 

Florence, CA 95429 


When you first run the program, you’ll be asked for the number of copies you want to print. 
Your response will determine how many times the entire list will be printed. (If you specify 2, the 
list will be printed in its entirety and then printed again.) 

Next a list of all .DO and .BA files in RAM will appear. Type in the name of a file that contains 
the names and addresses you wish to print (you don’t need to include the .DO extension) and press 
ENTER. 

Finally you need to position the top of the first label at the top of the printer’s printhead and 
press ENTER. Printing will then begin. 

When printing is complete, you’ll have the option of printing the same or another file or return- 
ing to the Main Menu. 

Note that this program is written for a parallel printer (using the printer port). If you want to 
use it with a serial printer, program modification will be required. To do this refer to the section 
in your Model 100 Oivner’s Manual on sending data out the RS-232C port. 
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Requirements 

This program requires about IK bytes of RAM; the size of the .DO files will be limited by the 
amount of available memory that you have. You will also need a parallel printer. 


Listing 


10 ' *** Mailing Label Program *** 

20 * *** Written by Robert L. Ripley*** 

30 CLS: PRINTS 49, "Mailing Label Program" 

40 PRINTS 200, "Press any key to continue..." 

50 A$=INKEY$: IF A$="" THEN 50 

60 SCREEN 0,0 

70 CLEAR 2000 

80 DEFINT I-M 

90 MAXFILES=2 

100 CLS 

110 DIM A$ (50) 

120 CLS: INPOT "How many copies do you want";C: IF C =< 0 THEN 120 
130 CLS: FILES: PRINT: INPUT "What .DO file do with names and 
addresses do you want printed"; F$ 

135 IF F$="" THEN 130 

140 CLS: INPUT "Position the top edge of the first label at the 
printhead and press <ENTER> to begin printing";A$ 

150 Z=0:0PEN F$ FOR INPUT AS 1 
160 OPEN "LPT:" FOR OUTPUT AS 2 
170 LINE INPUT #1 , AS (Z) 

ISO IF A$(Z)="" AND CC=0 THEN CC=Z 

190 IF EOF (1 ) THEN 210 

200 Z=Z+1 : GOTO 170 

210 IF CC=0 THEN CC=Z+1 

220 FOR 1=1 TO C 

230 FOR K=0 TO Z 

240 K1=K1+1: IF A$(K)="" THEN GOSUB 300: IF K > Z THEN 290 
250 LPRINT A$(K); 

260 IF (K+CC+1 ) <= Z THEN LPRINT TAB(45);A$(K+CC+1 ) ELSE LPRINT 
TAB(45);A$(K) 

270 NEXT K 

280 GOSUB 300 

290 NEXT I: GOTO 330 

300 FOR M=1 TO 6-CC: PRINT 

310 LPRINT 

320 NEXT M: K=K+CC+2: K1=0: RETURN 
330 CLS: INPUT "Another try";L$ 

340 CLOSE 

350 IF L$="Y" OR L$="y" THEN 120 ELSE MENU 
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CompuServe Stock Quote 


The “CompuServe Stock Quote” program automatically dials CompuServe’s number, logs on to 
CompuServe, and requests nine New York Stock Exchange closing prices and stores them in a 
RAM file. The cost of running the program is $.02 for each closing price you request plus the 
charge for the time you are on-line with CompuServe. 

Using the Program 

Before running the program, you must 

1. Change your CompuServe log-on parameters so that CompuServe automatically starts at the 
MQUOTE program prompt. To do this, log on to CompuServe and, at the ! prompt, type GO 
CIS-9 and press ENTER. When you see the CIS-9 menu, select option #3, “Setting Your Log- 
on Actions.” Change Actions 3 and 4 to 

3. Automatically run MQUOTE 

4. The First Service is Programming (PRO) 

(This does not prevent you from manually using the CompuServe menus. After CompuServe 
starts the MQUOTE program, type T and press ENTER. CompuServe then returns you to its 
initial menu where you can proceed as you normally do.) 

2. Use the Model 100’s TEXT program to create a Model 100 file named TICKER.DO contain- 
ing the nine stocks for which you want to request closing prices. Be sure to use the NYSE 
ticker names for the stocks. Type a ticker name, press ENTER, type another ticker name, 
press ENTER, and so forth. 

3. Use the Model 100’s TEXT program to create an empty file named PRICE. DO. The Stock 
Quote program will insert information into the PRICE.DO file. 

4. Change Line 60 of the CompuServe Stock Quote program so that PH$ equals your local 
CompuServe telephone number, US$ equals your CompuServe user ID number, and PW$ 
equals your password. For example, if your CompuServe number is 555-1111, your user ID is 
77777,777, and your password is MYSELF&MINE, enter: 

60 N=9: PH$=“5551111”: US$=“77777,777”: PW$=“MYSELF&MINE” 


With the Model 100 attached to a phone jack using the modem cable, run the program. You will 
see the program dial CompuServe, log on, request the closing prices, and log off. A menu is then 
displayed so that you can review or change prices. For example: 






CompuServe Stock Quote 


Next, you will see a prompt asking you if you want to save the prices as they appeared in the 
previous menu: 



If you answer both questions with yes (y), the program saves the prices in the file named 
PRICE. DO. In the previous example, the prices would be saved as follows: 

10/13/83, 31.25, 30.25, 61.25, 12.63, 

23.12, 43.25, 21, 23.5, 41.28, 29.28 

Requirements 

This program requires about 4K bytes of RAM. The allowable size of the various text (.DO) 
files will vary depending on the amount of free memory that you have. To run the program, you 
need a Model 100 Modem Cable so that you can connect the Model 100 to a telephone jack. You will 
also need a CompuServe account. 

Listing 

10 ' *** CompuServe Stock Quote Program *** 

20 ' *** Copyright 1983 by Donna Greaves Smith *** 

30 MAXFILES=4: CLS: PRINTS 45, "CompuServe Stock Quote Program" 

40 PRINTS 200, "Press any key to continue..." 

50 A$=INKEY$: IF A$="" THEN 50 

60 CLS: N=9: PH$="5551 1 22": US$="77777,777": PW$="YOUR,PASSWORD" 

70 0=0: DIM CP ! (N,0) : DIM CD$(N) 

80 ' Auto Log-on 

90 LG$=PH$ + "<=“C?U" + US$ + ""M?P" + PW$ + ,, ' > M>" 

100 M=VARPTR(LG$) 

110 AD=PEEK(M+1 ) + (PEEK (M+2)*256) 

120 CALL 21200 

130 CALL 21293, 0,AD 

140 OPEN "MDM:7I1 D" FOR INPUT AS 1 

150 OPEN "MDM: 711 D" FOR OUTPUT AS 2 

160 OPEN "TICKER. DO" FOR INPUT AS 4 

170 DATA "PROGRAM: ","QQU0TE" 

180 DATA "ISSUE: ","/ITEMS=5" 

190 DATA "ISSUE: ","/0PTI0NS=1 " 

200 DATA "PROGRAM: ","CTRLD" 
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210 READ PR$,CD$: X=1 

220 Z$=INPUT$(1,1): PRINT Z$; 

230 IF Z$=" ! " THEN PRINT# 2, "“H" 

240 Pl$=MID$(PR$,X,1) 

250 IF Z$ X P1$ THEN 220 
260 IF X >< LEN (PR$) THEN X=X+1 : GOTO 220 
270 IF 0=0 THEN GOSUB 290 ELSE GOSUB 320 
280 GOTO 220 

290 ' Respond to CompuServe prompts 

300 PRINT #2, CD$: IF CDS = "/OPTIONS=1" THEN 0=1: X=1 : 

RETURN 

310 IF CD$="CTRLD" THEN CLOSE: CALL 21179: GOTO 370 ELSE READ 
PR$,CD$: X=1 : RETURN 

320 ' Request closing prices from CompuServe 

330 IF S > N THEN PRINT # 2 , 0=0: READ PR$,CD$: RETURN 

340 INPUT #4, CD$(S) : PRINT #2, CDS(S) 

350 LINE INPUT #1, Z$: PRINT Z$ 

360 IF VAL(Z$)=0 THEN 350 ELSE CP ! (S,0)=VAL(Z$) : S=S+1 : RETURN 
370 1 Review closing prices 
380 GOSUB 630 

390 CLS: PRINTS 12, "Review Prices";: PRINTS 51,"Today:";DATE$ 
400 PRINTS 287, "Press <ENTER> if no change"; 

410 FOR T=1 TO 2: FOR S3=0 TO 1: FOR S2=0 TO 4: P%=80 + 

(S3*20)+(S2*40): S=CS1*10)+(S2+(S3*5)) : IF T=2 THEN 460 
420 IF SI 06 THEN 440 
430 IF S3=1 THEN 490 
440 PRINTS P%,CD$(S); : PRINT CP!(S,0); 

450 GOTO 490 

460 N$="": PRINTS P%+10, G+G+G+G+G+G+G; : PRINTS P%+10,"";: INPUT 
N$ 

470 IF N$="" THEN 490 
480 CP! (S,0)=VAL(N$) 

490 NEXT S2,S3,T 
500 ' Save updates 
510 CLS 

520 PRINTS 53, "Prices"; 

530 PRINTS 168, "Save updates (Y/N)";: INPUT N1$ 

540 PRINTS 248, "Are you sure (Y/N)";: INPUT N2$ 

550 IF N2$="n" THEN N2$ = "N" 

560 IF N2$="N" THEN 500 
570 IF N1$="n" THEN N1$ = "N" 

580 IF N1$="N" THEN 630 

590 CLS: PRINTS 132, "Writing Prices" 

600 KILL "PRICE. DO" 

610 OPEN "PRICE. DO" FOR OUTPUT AS 1: PRINT #1, DATES;",";: FOR 
S=0 TO N: X$=STR$(CP! (S,0)) : PRINT #1,X$;",";: NEXT S: CLOSE 
#1 

620 END 

630 'Read tickers 

640 CLS: PRINTS 132, "Reading Tickers";: OPEN "TICKER. DO" FOR 
INPUT AS 1: FOR S=0 TO N: IF EOF (1 > THEN 650 ELSE INPUT #1, 
CD$ (S) : NEXT S 
650 CLOSE #1, RETURN 
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All work and no play can take the fun out of using a computer. Consequently, the programs 
included in this section should provide you with hours of entertainment. Almost all the programs 
are games some traditional ones that you are probably familiar with and some that may be new 
to you. When playing the games, you might want to take special note of the Model 100’s unique 
graphic characters and dot-addressable graphic capabilities. One program, “Music Maker,” uti- 
lizes the Model 100 s sound capabilities; it is an excellent example of how you can use the Model 
100 to compose music. 
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“Space Fighters” is a game that lets you use the Model 100’s eight function keys as missile 
launchers to destroy Creatures that move across the top row of the screen. 


Using the Program 

The game starts with 50 seconds on the clock and steadily counts down. However, the more you 
fire the guns the slower the clock will tick. After eliminating a row of eight Creatures, a new but 
faster row will appear. Your reward for eliminating a row of Creatures is extra time added to the 
clock. It is possible to accumulate more than the starting time of 50 seconds, but after successive 
row eliminations the reward is less generous. The game ends when the clock runs out of time. 
Your final score will be listed, and if it is the highest of the round, it will also be listed and saved. 


Requirements 

Your Model 100 must have 2.5K bytes of RAM to use this program. 

Listing 

10 ' *** Space Fighters *** 

20 '*** Copyright 1983 by Robert L. Ripley *** 

30 S3=40: S4=40: 'Speed of target 

40 KEY 1,"": KEY 2/'": KEY 3,"": KEY 4,"" 

50 KEY 5 KEY 6,"": KEY 7,"": KEY 8,"" 

60 DIM CREATURE (7) 

70 GI=14: HS=0 
80 CLS 

90 PRINTS 93, "Space Fighters"; 

100 PRINTS 160, "Press <F1> to <F8> to fire missiles." 

110 PRINTS 240, "Press any key to continue..." 

120 A$= INKEY$: IF A$="" THEN 120 

130 CLS 

140 SC=0 

150 G0SUB 880 

160 PRINTS 305, "Hi Score:";HS; 

170 ON KEY GOSUB 530,540,550,560,570,580,590,600 
180 GOSUB 830 
190 KEY ON 

200 FOR CR=50 TO 1 STEP-1 

210 FOR J4=0 TO 4 

220 PRINTS 0, STRINGS (J4," ");E$; 

230 FOR DLY=1 TO S3: NEXT DLY 
240 NEXT J4 

250 FOR J4=3 TO 1 STEP-1 

260 PRINTS 0, STRINGS (J4," ");E$; 
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270 FOR DLY=1 TO S3: NEXT DLY 
280 NEXT J4 

290 PRINTS) 292, "TIME"; CR; 

300 S3=S3-8: IF S3 < 1 THEN S3=S4 
310 NEXT CR 
320 KEY OFF 

330 CLS: PRINTS) 90, "Game Over, Score”;SC 
340 IF SC > HS THEN BEEP ELSE 380 
350 PRINTS 210, "NEW HIGH SCORE OF";SC; 

360 FOR RP=1 TO 6: BEEP: NEXT RP 
370 HS=SC 

380 FOR DLY=1 TO 1000: NEXT OLY 
390 CLS 

400 PRINTS 120, "Would you like to play again (Y/N) 
410 INPUT A$ 

420 IF A$="Y" OR A$="y" OR A$="n" OR A$="N" THEN 460 
430 PRINT "Please type a "CHR$(34)"Y"CHR$(34)" or " 
CHR$(34) "N"CHR$ (34) 

440 FOR DLY=1 TO 1000: NEXT DLY 
450 CLS: GOTO 400 

460 IF A$="y" OR A$="Y" THEN 130 

470 CLS 

480 PRINTS 128, "Your Highest Score Was";HS 
490 CALL 23164,0,23366 'Restore function keys 
500 CALL 27795 
510 MENU: END 

520 'Routine to detect hit 

530 U=2: R=0: GOTO 620 

540 U=7 : R=1 : GOTO 620 

550 U=12: R=2: GOTO 620 

560 U=17: R=3: GOTO 620 

570 U=22: R=4: GOTO 620 

580 U=27 : R=5: GOTO 620 

590 U=32: R=6: GOTO 620 

600 U=37 : R=7: GOTO 620 

610 ' Fire routine 

620 KEY OFF: Ul=U+40: BEEP 

630 FOR Ml =6 TO 0 STEP-1 

640 PRINTS (U+40*M1),CHR$(152); 

650 NEXT Ml 

660 FOR Ml =5 TO 0 STEP-1 
670 PRINTS (U+40*M1 ) ," 

680 NEXT Ml 
690 S4=S4-4 

700 IF J4 <> 2 OR CREATURE (R)=Q THEN 750 

710 BEEP: GOSUB 950 

720 FOR DLY=1 TO 200: NEXT DLY 

730 SC=SC+1 : AL=AL-1 

740 PRINTS 280,"Score";SC; 

750 IF INSTR (1 ,E$,CHR$(144) ) <> 0 THEN 780 

760 GOSUB 880 

770 CR=CR+GI : GI=GI-1 

780 1=1+1: K2=K2+1 

790 S3=S3-2 
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800 KEY ON 

810 RETURN 

820 ' Display guns 

830 FOR J=2 TO 40 STEP 5 

840 PRINTS J+240,CHR$(152>; 

850 NEXT J 
860 RETURN 

870 1 Routine to create creatures 
880 E$="" 

890 FOR J=0 TO 7 

900 E$=E$ + CHR$(144) + STRING$(4," 
910 CREATURE (J )=1 
920 NEXT J 
930 RETURN 

940 'Routine to eliminate creature 
950 MID$(E$,1+R*5)=" " 

960 CREATURE (R)=0 
970 RETURN 



Towers of Hanoi 


Somewhere in the Orient, a group of priests has been moving golden disks from one pedestal to 
another. When they’re done, the story goes, the world will end. 

According to the legend, there were three pedestals and 64 disks, each of a different diameter. 
The priests could only move one disk at a time, and each disk could only be placed on top of a 
larger disk. Their task was to move the entire pile of disks from one pedestal to another. Assuming 
that the priests could move one disk per second, it would take them nearly half a trillion years to 
move their 64 disks from one pedestal to another. 

The object of “Towers of Hanoi,” however, is a little more modest. Instead of trying to deter- 
mine how many years it would take to move the pile of disks, you need to guess the number of 
moves it will take to transfer one pile of disks from one pedestal to another. 


Using the Program 

When you run this program, you will first be asked the number of disks to begin with. You can 
have from one to seven disks in your simulation. Next the program will ask you to guess how many 
moves it will take to get all your disks onto the center pedestal. At this point, all you need to do is 
sit back and watch the program move each disk around until all the disks are on the center 
pedestal. 

When all the disks are moved, the program will tell you whether your guess was correct or 
incorrect. 

This program is an excellent example of the Model 100 graphic capabilities, particularly the 
LINE command. 

Requirements 

To use this program, 2K bytes of RAM are required. 


Listing 

10 1 *** Towers of Hanoi *** 

20 1 *** Adapted by Michael Rubenstein *** 

30 CLS: PRINTS) 52, "Towers of Hanoi" 

40 PRINTS) 200, "Press any key to continue..." 

50 A$=INKEY$: IF A$="" THEN 50 

60 DEFINT A-Z 

70 DIM P(2,7),S(3,16) 

80 G0SU8 150 

90 G0SUB 160: G0SUB 260: G0SUB 360 
100 PRINT 

110 PRINT: IF M=MV THEN PRINT " You WIN!!"; ELSE PRINT " You 
Lose !"; 

120 PRINT " Press any key to continue.." 
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130 A$=INKEY$: IF A$="" THEN 130 
140 GOTO 90 

150 SCREEN 0,0: CLS: RETURN 

160 CLS: PRINTS 160, "How many disks (Press <ENTER> to exit)? 
170 C$=INPUT$<1) 

180 IF C$=CHR$ (13) THEN CLS: MENU 

190 IF C$ < "1" OR C$ > "7" THEN BEEP: GOTO 160 
200 PRINT C$; : N=ASC(C$)-48 

210 PRINTS 240, "How many moves will it take"; 

220 INPUT MS 

225 IF M$=""THEN GOTO 220 

230 IF AS C (LEFTS (M$,1 ) ) > 57 OR ASC (LEFT$(M$,1 ) ) < 48 THEN BEEP: 
PRINTS 269," "; GOTO 210 

240 M = VAL (MS) 

250 RETURN 

260 CLS: GOSUB 150: T=40-3*N 

270 PRINTS 260, "Your guess is";M 

280 LINE (40, T+1)- (40,40), 1 

290 LINE (1 20, T+1 )- (120, 40) ,1 

300 LINE (200,T+1)-(2G0,40),1 

310 LINE(0,41 )-(239,44) ,1 ,8F 

320 P(0,0)=40: P(1,0)=120: P(2,0)=200 

330 D=1 : C=40: FOR 1=1 TO N: R=41-3*I: S=N+1-I: GOSUB 430: 

P (0,I)=S: P(1 ,1)=0: P(2,I)=0: NEXT I 
340 MV=0 
350 RETURN 

360 S (0,0)=N: S(1,0)=0: S(2,0)=1: S(3,0)=2: IS=0 
370 IF IS < 0 THEN RETURN 

380 IF S(0,IS)=1 THEN GOSUB 470: IS=IS-1 : GOTO 370 

390 S(0,IS+2)=S(0,IS)-1 : S(1,IS+2)=S(1,IS) : S (2,IS+2)=S (3, IS) : 

S (3,IS+2)=S (2, IS) 

400 S (0,IS+1 )=1 : S (1,IS+1 )=S (1,IS) : S (2,IS+1 )=S (2,IS) 

410 S (0,IS)=S (0, IS)-1 : S(1,IS)=S(3,IS) : S(3,IS)=S(1,IS+1) 

420 IS=IS+2: GOTO 380 
430 L=5*S 

440 LINE (C-L-1 ,R)- (C-2,R+1 ) ,D,BF 
450 LINE (C+2,R)-(C+L+1 ,R+1 ),D,BF 
460 RETURN 

470 P1=S(1,IS): P2=S(2,IS) 

480 FOR I=N TO 1 STEP -1 
490 IF P(P1,I) <> 0 THEN 510 
500 NEXT I 

510 S=P(P1 ,1) : C1=P(P1,0) : C2=P(P2,0): C=C1: P(P1,I)=0 

520 FOR J =38-3*1 TO T-2 STEP -3 

530 R=J : 0=1: GOSUB 430: R=J+3: 0=0: GOSUB 430 

540 NEXT J 

550 R=T-2 : L=5*S: D=1 

560 IF Cl < C2 THEN K=1 ELSE K=-1 

570 FOR C=C1 +2*K TO C2 STEP 2*K 

580 LINE (C-2,R)-(C+2,R+1 ),0,BF 

590 IC=C-K*(11+L) : IF IC < 0 THEN IC=0 

600 IF IC > 239 THEN IC=239 

610 LINE(IC,R)-(C-K*(1+L),R+1),0,BF 

620 GOSUB 430 
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63 G NEXT C 

640 FOR 1=1 TO N 

650 IF P(P2,I)=0 THEN 670 

660 NEXT I 

670 P(P2,I)=S: C=C2 

680 FOR J=T+1 TO 41-3*1 STEP 3 

690 R=J: D=1: GOSUB 430: R=J-3: D=0: GOSUB 430: NEXT J 
700 MV=MV+1: PRINTS 245, "Move : PRINT USING 

710 RETURN 


52 



Four Seasons Solitaire 


“Four Seasons” is a solitaire game that is usually played with a deck of 52 cards. Once the deck 
is shuffled, the five top cards are dealt into a tableau as follows: 



The next card is dealt into the upper left-hand corner, and it becomes the first card of the 
foundation. Foundations are built up in suit and in sequence. For example, if the first foundation 
card is a 5, the foundation can be built up in the sequence 5, 6, 7, 8, 9, 10, J, Q, K, A, 2, 3, and 4. 
The first foundation card dealt into the upper left-hand corner determines the rank of the founda- 
tion. Only a card of the same rank may be played on an empty foundation position. For example, if 
the first foundation card dealt was a 5 of hearts, the only cards that may be played in the remain- 
ing three empty foundation positions would be the 5 of diamonds, the 5 of spades, or the 5 of clubs. 

Once the initial cards are dealt, the play begins. Each card in the deck is turned up one at a 
time. A card may then be 

Built on a foundation in suit and in ascending order 
Built on the tableau in descending order, regardless of suit 
• Placed on top of a discard pile. 

The top card of the discard pile is always available for play on the tableau or on any of the 
foundations. The top card of each tableau may also be played on another tableau or on a founda- 
tion. Spaces in the tableau must be filled by a card from the tableau, the hand, or from the discard 
pile. • 

You win if all the cards are moved onto the foundations. 

Using the Program 

When you run the program, you will first see the message, 

Initializing — be patient... 

In a few seconds, you will see the prompt 

Keep cumulative scores? 

Type Y or y if you want to record your wins and losses in a file of cumulative scores; otherwise 
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type N or n. If you decide to keep your cumulative scores, they will be stored in a file called 
FOURSC.DO. 

The screen will then be cleared and the message 
Shuffling— be patient... 

will be displayed. After a few seconds the computer will display the tableau, the first foundation 
card, and the first card from the hand. The cards from the hand are automatically placed on the 
discard pile for viewing. For example, 



To the right of the discard pile the rank of the foundation is displayed. Recall that only a card of 
similar rank may be played in an empty foundation. At the left side of the screen, you will see the 
message 


PLAY? 

45 CARDS LEFT 

You may now type in one of the following commands: 

H or h To get a new card (Hit) 

M or m To move a card from one pile to another 
Q or q To quit playing. 

Once you type M or m, you can use the arrow keys to position the cursor over the card you want 
to move and press ENTER. You may now use the arrow keys to position the cursor to the pile where 
you want to play the card. When you press ENTER, the card you selected will be moved. 

The way in which the arrow keys move the cursor will seem strange at first; it may take a 
while to get used to how they work. They are designed to allow you to get from any pile to any 
other pile in either one or two moves. 

Requirements 

You will need about 12K bytes of RAM for the program. 
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Listing 

10 1 *** Four Seasons Solitaire *** 

20 ' *** Copyright 1983 by General Business Systems, Inc. *** 
50 CLEAR 1000 
60 DEFSTR S 
70 DEFINT A-R,T 

80 DIM A<52),HP(52),HSC52),SA(13),D<52),T(5,13>,N(5),F(4), 

PT (5),PF (4) 

90 DATA " A"," 2"," 3"," 4"," 5''," 6"," 7"," 8"/' 9" 10 " J" 
"QV K" 

100 FOR 11=1 TO 13 
110 READ SA(I1 ) 

120 NEXT 

130 SM ="##,###" 

135 RV$=CHR$(27)+"p" : NV$=CHR$(27)+"q" 

140 CLS 

150 PRINT TAB(14);"Four Seasons" 

160 PRINT 
190 PRINT 

200 PRINT "Initializing - be patient ..." 

210 PRINT 
220 G0SUB 3390 
230 PT (1 )=23 
240 PT (2)=97 
250 PT (3) =103 
260 PT (4)=109 
270 PT (5) =183 
280 PF(1)=17 
290 PF (2)=29 
300 PF(3)=177 
310 PF C4)=189 
320 CL=0 
330 CW=0 
340 GL=0 
350 GW=0 
360 SC="" 

370 IF SC="" THEN GOSUB 480: GOTO 370 
380 SR="Y" 

390 IF SR <> "N" THEN GOSUB 670: GOTO 390 

400 IF SC="N" THEN MENU 

410 OPEN "FOURSC" FOR OUTPUT AS 1 

420 PRINT #1,GW;GL;IG 

430 CLOSE 

440 MENU 

450 REM ************************************** 

460 REM * READ CUMULATIVE SCORES, IF DESIRED * 

470 REM ************************************** 

480 PRINT "Keep cumulative scores? "; 

485 SC=INPUT$(1 ) 

490 IF SC="n" THEN SC="N" 

500 IF SC="y" THEN SC="Y" 

510 IF SC="N" THEN PRINT "No"; : RETURN 
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520 IF SC <> "Y" THEN SC="" : BEEP: PRINTS 240, "*** PLEASE ENTER 
<Y> OR <N> ***" : RETURN 
525 PRINT "Yes"; 

530 ON ERROR GOTO 620 

540 OPEN "FOURSC" FOR INPUT AS 1 

550 INPUT #1 ,GW,GL,IG 

560 CLOSE 

570 ON ERROR GOTO 0 
580 RETURN 

590 REM ********************************** 

600 REM * ERROR ROUTINE FOR MISSING FILE * 

610 REM ********************************** 

620 IF ERR=52 THEN RESUME 570 
630 ON ERROR GOTO 0 
640 REM ************ 

650 REM * NEW GAME * 

660 REM ************ 

670 CLS 

680 IF SR="Y" THEN GOSUB 2310 ELSE GOSUB 2510 
690 GOSUB 2590 
700 CLS 

710 GOSUB 2780 

720 IF NH < 52 THEN GOSUB 1140: GOTO 720 
730 CLS 

740 IF ND=0 THEN PRINT "YOU WON!": CW=CW+1 : GW=GW+1 ELSE PRINT 
"YOU LOST!": CL=CL+1 : GL=GL+1 
750 PRINT 
760 BL=CL 
770 BW=CW 
780 SG="Current : " 

790 GOSUB 1000 
800 BL=GL 
810 BW=GW 

820 IF SC="Y" THEN SG="Cum:": GOSUB 1000 
830 SR="" 

840 IF SR="" THEN GOSUB 890: GOTO 840 
842 IF SR="Y" THEN PRINT "Yes"; 

844 IF SR="N" THEN PRINT "No"; 

846 IF SR="R" THEN PRINT "Replay"; 

850 RETURN 

860 REM ************************** 

870 REM * CHECK FOR ANOTHER GAME * 

880 REM ************************** 

890 PRINTS 280, "Play again (yes/no/replay)? "; 

895 SR=INPUT$(1) 

900 IF SR="y" THEN SR="Y": RETURN 

910 IF SR="n" THEN SR="N": RETURN 

920 IF SR="r" THEN SR="R": RETURN 

930 IF SR="Y" OR SR="N" OR SR="R" THEN RETURN 

940 SR="" 

950 BEEP: PRINTS 240,"** Please type <Y>, <N>, or <R> **" 

960 RETURN 

970 REM ****************** 

980 REM * DISPLAY SCORES * 

990 REM ****************** 
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1000 PRINT SG; 

1010 PRINT TAB (9); "Played:";TAB(17); 

1020 PRINT USING SM;BL+BW; 

1030 PRINT TAB (26); "Won:"; TAB (31) ; 

1040 PRINT USING SM;BW 

1050 PRINT TAB (9); "Lost:"; TAB (17) ; 

1060 PRINT USING SM;BL; 

1070 PRINT TAB(26) ;"% Won: ";TA8(33); 

1080 PRINT USING "###.##";BW/(BW+BL)*100; 

1090 PRINT "%"; 

1100 RETURN 
1110 REM ******** 

1120 REM * PLAY * 

1130 REM ******** 

1140 NH=NH+1 
1150 IC=HP (NH) 

1160 ND=ND+1 
1170 D (ND)=IC 
1180 GOSUB 3090 
1190 PRINTS 303, SG; 

1200 PRINTS 280, 52-NH; "Cards Left "; 

1210 IS=1 

1220 IF IS=1 THEN GOSUB 1270: GOTO 1220 
1230 RETURN 

1240 REM ***************** 

1250 REM * MAKE ONE MOVE * 

1260 REM ***************** 

1270 IS=0 
1290 GOSUB 3180 

1320 PRINTS 240, STRINGS (33," "); 

1340 IF SG="H" THEN PRINTS 206, "Hit"; : RETURN 

1350 IF SG="Q" THEN NH=52 : PRINTS 206, "Quit"; : RETURN 

1360 IF SG="M" THEN PRINTS 206, "Move"; 

1390 GOSUB 4030 : PRINTS 6,SF; 

1400 GOSUB 4460 : PRINTS 44,ST; 

1410 GOSUB 1510 

1420 IF IS=1 THEN RETURN 

1430 GOSUB 1620 

1440 IF IS=1 THEN RETURN 

1450 IF LEFT$(ST,1 )="T" THEN GOSUB 1790 ELSE GOSUB 1960 
1460 IS=1 
1470 RETURN 

1480 REM ****************** 

1490 REM * EDIT FROM CARD * 

1500 REM ****************** 

1510 IF SF="D" AND ND > 0 THEN FC=D (ND) : RETURN 
1520 IT=ASC(RIGHT$(SF,1))-48 
1530 FC=T (IT,N (IT) ) 

1540 RETURN 

1590 REM **************** 

1600 REM * EDIT TO CARD * 

1610 REM **************** 

1620 IT=ASC(RIGHT$(ST,1))-48 

1630 IF LEFT$(ST,1 )="F" THEN TC=F(IT): RETURN 
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1640 TC=T (IT,N (IT) ) : RETURN 
1700 REM ********* 

1710 REM * ERROR * 

1720 REM ********* 

1730 IS=1 

1740 BEEP: PRINTS 240,"ILLEGAL MOVE"; 

1750 RETURN 

1760 REM ******************** 

1770 REM * BUILD ON TABLEAU * 

1780 REM ******************** 

1790 TM=( (TC-1 ) MOD 13)+1 
1800 FM=((FC-1) MOD 13) +1 

1810 IF TM=FM OR TM=IB THEN GOSUB 1730: RETURN 

1820 IF TM=1 THEN TM=13 ELSE TM=TM-1 

1830 IF TM < 0 THEN TM=FM 

1840 IF FM <> TM THEN GOSUB 1730: RETURN 

1850 IT=ASC (RIGHTS (ST,1 )) -48 

1860 N (IT)=N (IT)+1 

1870 T (IT,N (IT) ) =FC 

1880 IC=FC 

1890 GOSUB 3090 

1900 PRINTS PT (IT) ,SG; 

1910 IF SF="D" THEN GOSUB 2140 ELSE GOSUB 2220 
1920 RETURN 

1930 REM *********************** 

1940 REM * BUILD ON FOUNDATION * 

1950 REM *********************** 

1960 TM=((TC-1) MOD 13) +1 

1970 FM=( (FC-1 ) MOD 13)+1 

1980 IF TM=0 THEN TM=IB ELSE TM=TM+1 

1990 IF TM=14 THEN TM=1 

2000 IF FM <> TM THEN GOSUB 1730: RETURN 

2010 1 1 = ( F C— 1 ) /13+1 

2020 IF TC=0 THEN 12=11 ELSE I2=(TC-1 ) /13+1 

2030 IF II <> 12 THEN GOSUB 1730: RETURN 

2040 IT=ASC (RIGHTS ( ST, 1 ) )-48 

2050 F (IT) = FC 

2060 IC=FC 

2070 GOSUB 3090 

2080 PRINTS PF(IT),SG; 

2090 IF SF="D" THEN GOSUB 2140 ELSE GOSUB 2220 
2100 RETURN 

2110 REM **************************** 

2120 REM * REMOVE CARD FROM DISCARD * 

2130 REM **************************** 

2140 ND=ND-1 
2150 IC=D (ND) 

2160 GOSUB 3090 
2170 PRINTS 303, SG; 

2180 RETURN 

2190 REM **************************** 

2200 REM * REMOVE CARD FROM TABLEAU * 

2210 REM **************************** 

2220 IT=ASC(RIGHT$(SF,1>)-48 
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2230 N(IT)=N(IT)-1 
2240 IC=T (IT,N (IT) ) 

2250 GOSUB 3090 
2260 PRINTS) PT (IT) / SG; 

2270 RETURN 

2280 REM ***************** 

2290 REM * SHUFFLE CARDS * 

2300 REM ***************** 

2310 PRINT "Shuffling - be patient ..." 

2320 FOR 11=1 TO 52 
2330 A ( I 1 ) =0 
2340 NEXT 
2350 11=0 

2360 IF II < 52 THEN GOSUB 2410: GOTO 2360 
2370 RETURN 

2380 REM ***************** 

2390 REM * GET NEXT CARD * 

2400 REM ***************** 

2410 I2=RND (1 )*52+1 

2420 IF A(I2)=1 THEN RETURN 

2430 11=11+1 

2440 HP (II )=I2 

2450 HS (II )=I2 

2460 A (I2)=1 

2470 RETURN 

2480 REM ********************* 

2490 REM * REPLAY PRIOR GAME * 

2500 REM ********************* 

2510 FOR 11=1 TO 52 
2520 HP(I1)=HS(I1) 

2530 NEXT 

2540 IF ND=0 THEN GW=GW-1 : CW=CW-1 ELSE GL=GL-1 : CL=CL-1 
2550 RETURN 

2560 REM ********************** 

2570 REM * INITIALIZE TABLEAU * 

2580 REM ********************** 

2590 T (1 ,1 )=HP (1 ) 

2600 T (3,1 )=HP(2) 

2610 T(5,1)=HP(3) 

2620 T (2,1 )=HP(4) 

2630 T(4,1)=HP(5) 

2640 F (1 )=HP (6) 

2650 FOR 11=1 TO 5 
2660 N (II) =1 
2670 NEXT 
2680 F (2)=0 
2690 F (3)=0 
2700 F (4)=0 
2710 ND=0 
2720 NH=6 

2730 IB=((F (1 )-1 ) MOD 13)+1 
2740 RETURN 

2750 REM ******************* 

2760 REM * DISPLAY TABLEAU * 

2770 REM ******************* 
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2780 IC=F (1 ) 

2790 GOSUB 3090 
2800 PRINTS PF(1),SG; 

2805 GOSUB 5000 
2810 IC=T (1 /N(1 ) ) 

2820 GOSUB 3090 
2830 PRINTS PT(1),SG; 

2840 IC=F (2) 

2850 GOSUB 3090 
2860 PRINTS PF(2),SG; 

2870 IC=T (2,N (2) ) 

2880 GOSUB 3090 
2890 PRINTS PT(2),SG; 

2900 IC=T(3,N(3)) 

2910 GOSUB 3090 
2920 PRINTS PT(3),SG; 

2930 IC=T (4,N (4) ) 

2940 GOSUB 3090 
2950 PRINTS PT(4),SG; 

2960 IC=F (3) 

2970 GOSUB 3090 
2980 PRINTS PF(3),SG; 

2990 IC=T (5,N (5) ) 

3000 GOSUB 3090 
3010 PRINTS PT(5),SG; 

3020 IC=F (4) 

3030 GOSUB 3090 
3040 PRINTS PF (4),SG; 

3050 RETURN 

3060 REM ** ■** *■* ★ *** ** 

3070 REM * GET CARD NAME * 

3080 REM ***************** 

3090 IF IC=0 THEN SG=STRING$ (4," ") : RETURN 
3100 I1=((IC-1) MOD 13)+1 
3110 SG=SA(I1 )+" " 

3120 I1 = (IC-1)/13+1 
3130 SG=SG+CHR$(1 55+11 ) 

3140 RETURN 

3150 REM ***************** 

3160 REM * GET PLAY TYPE * 

3170 REM ****************** 

3180 PRINTS 200, STRINGS (1 1," ") 

3181 PRINTS 0, STRINGS (8," ") 

3182 PRINTS 40, STRINGS (6," ") 

3183 PRINTS 200, "PLAY? 

3185 SG=INPUTS(1) 

3190 IF SG="h" THEN SG="H" 

3200 IF SG="q" THEN SG="Q" 

3210 IF SG="m" THEN SG="M" 

3220 IF SG="H" OR SG="Q" OR SG="M" THEN RETURN 

3240 BEEP: PRINTS 240,"** Please type <M>, <H> or <Q> **": GOTO 
3180 

3360 REM ************************************** 

3370 REM * INITIALIZE RANDOM NUMBER GENERATOR * 

3380 REM ************************************** 
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3390 II =VAL (LEFTS (DATES, 2) ) 

3400 GOSUB 3550 

3410 I1=VAL(MID$(DATE$,4,2)) 

3420 GOSUB 3550 

3430 I1=VAL(MID$(DATE$,7,2)) 

3440 GOSUB 3550 

3450 I1=VAL(MID$(TIME$,1,2>) 

3460 GOSUB 3550 

3470 I1=VAL(MID$ (TIMES, 4, 2) ) 

3480 GOSUB 3550 

3490 I1=VAL(MID$(TIME$,7,2)) 

3500 GOSUB 3550 
3510 RETURN 

3520 REM ******************** 

3530 REM * GENERATE NUMBERS * 

3540 REM ******************** 

3550 FOR 12=1 TO II 
3560 I3=RND (1 ) 

3570 NEXT 
3580 RETURN 

4000 REM ***************** 

4010 REM * GET FROM CARD * 

4020 REM ***************** 

4030 CF=0: PF=0: SF="": GOSUB 4300 
4040 PRINTS 0, "From:"; 

4050 IF SF <> CHRSC13) THEN GOSUB 4160: GOTO 4050 
4060 PF=CF 

4070 IF PF=0 THEN SF="D": RETURN 
4110 SF="T" + RIGHTS (STR$(CF),1 ) 

4120 CF=CF+4: RETURN 

4130 REM ******************************** 

4140 REM * GET ONE FROM CURSOR MOVEMENT * 

4150 REM ******************************** 

4160 SF=INKEY$: IF SF= ,m THEN 4160 
4170 IF SF=CHR$(13) THEN RETURN 

4180 IF ASC (SF) < 28 OR ASC(SF) > 31 THEN BEEP: GOTO 4160 

4190 IF SF=CHR$(28) THEN MV=-2 

4200 IF SF=CHR$ (29) THEN MV= 2 

4210 IF SF=CHR$ (30) THEN MV=-1 

4220 IF SF=CHR$ (31 ) THEN MV=1 

4230 PF=CF 

4240 CF= (CF+MV) MOD 6 

4250 IF CF < 0 THEN CF=6+CF 

4260 GOSUB 4300: RETURN 

4270 REM ***************************** 

4280 REM * MOVE CURSOR ONE FROM CARD * 

4290 REM ***************************** 

4300 IF PF=0 THEN GOSUB 4350 
4310 IF PF <> 0 THEN GOSUB 4370 
4320 IF CF=0 THEN GOSUB 4390 
4330 IF CF <> 0 THEN GOSUB 4410 
4340 RETURN 

4350 IC=D (ND) : GOSUB 3090 
4360 PRINTS 303, SG;: RETURN 
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4370 IC=T(PF,N(PF)): GOSUB 3090 

4380 PRINTS PT(PF),SG;: RETURN 

4390 IC=D (ND) : GOSUB 3090 

4400 PRINTS 303,RV$;SG;NV$;: RETURN 

4410 IC=T (CF,N (CF) ) : GOSUB 3090 

4420 PRINTS PT(CF),RV$;SG$;NV$;: RETURN 

4430 REM *************** 

4440 REM * GET TO CARD * 

4450 REM *************** 

4460 CT=1 : PT=1 : ST= ,,M : GOSUB 4760 
4470 PRINTS 40/'T0:"; 

4480 IF ST <> CHR$(13) THEN GOSUB 4620: GOTO 4480 
4490 PT=CT 

4500 IF PT < 5 THEN GOSUB 4550 
4510 IF PT > 4 THEN GOSUB 4570 
4520 IF PF=0 THEN GOSUB 4350 
4530 IF PF <> 0 THEN GOSUB 4370 
4540 RETURN 
4550 GOSUB 4810 

4560 ST="F"+RIGHT$(STR$(PT),1): RETURN 
4570 GOSUB 4830 

4580 ST="T"+RIGHT$(STR$(PT-4),1): RETURN 
4590 REM ****************************** 

4600 REM * GET ONE TO CURSOR MOVEMENT * 

4610 REM ****************************** 

4620 ST=INKEY$: IF ST="" THEN 4620 
4630 IF ST=CHR$ (13) THEN RETURN 

4640 IF ASC (ST) < 28 OR ASC(ST) > 31 THEN BEEP: GOTO 4620 

4650 IF ST=CHR$(28) THEN MV = 1 

4660 IF ST=CHR$(29) THEN MV = -1 

4670 IF ST=CHR$(30) THEN MV = 4 

4680 IF ST=CHR$(31 ) THEN MV = -4 

4690 PT=CT 

4700 CT=(CT+MV) MOD 9 

4710 IF CT < 1 THEN CT=9-ABS(CT) 

4720 GOSUB 4760: RETURN 

4730 REM*************************** 

4740 REM* MOVE CURSOR ONE TO CARD * 

4750 REM*************************** 

4760 IF PT < 5 THEN GOSUB 4810 

4770 IF PT > 4 AND CF <> PT THEN GOSUB 4830 

4780 IF CT < 5 THEN GOSUB 4850 

4790 IF CT > 4 THEN GOSUB 4870 

4800 RETURN 

4810 IC=F (PT) : GOSUB 3090 

4820 PRINTS PF(PT),SG;: RETURN 

4830 IC=T(PT-4,N(PT-4)): GOSUB 3090 

4840 PRINTS PT(PT-4), SG; : RETURN 

4850 IC=F (CT) : GOSUB 3090 

4860 PRINTS PF(CT),RV$;SG;NV$; : RETURN 

4870 IC= T(CT-4,N(CT-4)): GOSUB 3090 

4880 PRINTS PT(CT-4),RV$;SG;NV$;: RETURN 

4970 REM ************************* 

4980 REM * PRINT FOUNDATION CARD * 

4990 REM ************************* 
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5000 PRINTS) 315,LEFT$(SG,2>; 

5005 IF VAL (LEFTS (SG,2) ) =10 THEN LS=203 ELSE LS=206 

5010 LINE (LS,63)-(LS+24,52),1,B 

5020 LINE (LS+2,63)-(LS+22,54),1,B 

5030 FOR Z=LS+1 TO LS+23 STEP 2 

5040 PSET (Z,53) : NEXT Z 

5050 FOR Z=53 TO 63 STEP 2 

5060 PSET (LS+1,Z): PSET (LS+23, Z) 

5070 NEXT Z 
5080 RETORN 
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The “Embedded Word Puzzle” program is designed to solve puzzles where you must find a set 
of words that is hidden in a matrix of characters. Given a file MATRIX.DO containing the matrix 
of letters and another file EMWORD.DO containing a list of words to find, this program will print 
out the locations of the hidden words. It will solve for words spelled forwards and backwards as 
well as locate words arranged diagonally within the matrix. 

Using the Program 

Before you can run the program, you need to use the built-in TEXT program to create a text 
file (MATRIX.DO) containing the matrix of letters. Type in each line of the matrix without any 
blank spaces between the letters. For example: 

acanjfe 

pantkio 

ertnzrd 

xraybeo 

hxntwdf 

Next, create a text file (EMWORD.DO) containing a list of all the words you want to find. 
Enter one word per line with no leading spaces. For instance, 

apex 

at 

ant 

fire 

red 

wed 

doe 

pant 

xray 

car 

can 

ape 

tan 

rat 

tar 

When you run the Embedded Word Puzzle program, you will see the message 

The program is running. 

When the program has run, you will receive a printout that gives the coordinate where each word 
begins and the direction in which the word is oriented (N, NE, W, S, SE, SW, E, and NW). In 
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addition, the results will be stored in a text file named EMOUT.DO. As an example, for the 
previous matrix and the previous list of words, you would receive the following result: 


EMBEDDED 

WORDS 

apex 

at 

ant 

fire 

red 

wed 

doe 

pant 

xray 

car 

can 

ape 

tan 

rat 

tar 


HORIZONTAL 

COORDINATE 

1 

3 

3 

6 

6 

5 

7 

1 

1 

2 

2 

1 

3 
2 

4 


VERTICAL 

COORDINATE 

1 

1 

1 

1 

3 

5 

3 
2 

4 
1 
1 
1 
3 
3 

5 


DIRECTION 
OF WORD 

S 

SE 

S 

S 

S 

NE 

N 

E 

E 

S 

E 

S 

S 

S 

NW 


Requirements 

This program requires about 2K bytes of RAM and a parallel printer (attached to the printer 
port). In order to use a serial printer (attached to the RS-232 port), modifications to the program 
must be made. 


Listing 

10 ' *** Embedded Word Puzzle *** 

20 ' *** Written by Alex Jacobs *** 

30 CLS: PRINTS 55, "Embedded Word Puzzle" 

40 PRINTS 200, "Press any key to continue..." 

50 A$=INKEY$: IF A$="" THEN 50 

220 CLEAR 3000: DEFINT A-Z: MAXFILES=3: DIM MT$(50,50),WO$(50) 
230 CLS: PRINTS 125, "The program is running." 

240 OPEN "MATRIX. DO" FOR INPUT AS 1 
250 OPEN "EMOUT.DO" FOR OUT PUT AS 2 

260 FOR H=1 TO 100: LINE INPUT#1,LN$: FOR 1=1 TO LEN(LNS): 
MT$(H,I)=MID$(LN$,I,1): NEXT I 
270 IF EOF (1 ) THEN CL0SE#1 : GOTO 290 
280 NEXT H 

290 OPEN "EMW0RD. DO" FOR INPUT AS 1: C=1 

300 LINE INPUT#1,LN$: W0$(C)=LN$: C=C+1 : IF E0F(1) THEN 310 ELSE 



300 



310 

CLOSEtfl 



320 

LPRINT "Embedded 
Di rection" 

Hori zonta l 

Vertical 

330 

LPRINT " Words 
of Word" 

Coordinate 

Coordinate 

340 

LPRINT " 

If 
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350 OPEN "MATRIX. DO" FOR INPUT AS 1 

360 FOR H=1 TO 100: LINE INPUTS, LN$: IF EOF Cl ) THEN CL0SE#1 ELSE 
NEXT H 

370 W=LEN (LN$) 

380 OPEN "EMWORD.DO" FOR INPUT AS 1 

390 FOR L=1 TO 100: LINE INPUT#1,LN$: IF E0F(1) THEN CL0SE#1 ELSE 
NEXT L 

400 FOR K=1 TO L: LT$=LEFT$(WO$(K) ,1 ) 

410 FOR 1=1 TO H: FOR J=1 TO W: IF LT$=MT$(I,J) THEN X=J : Y=I: 
GOTO 450 

420 NEXT J: NEXT I 
430 NEXT K 
440 CL0SE#2: MENU 
450 FOR D=1 TO 8 
460 LN$="" 

470 FOR LN=1 TO LEN(WO$(K)) 

480 IF X < 1 OR X > W OR Y < 1 OR Y > H THEN 510 
490 IF MT$(Y,X) <> MID$ (W0$(K),LN,1 ) THEN 530 
500 LN$=LN$+MT$(Y,X) 

510 ON D GOSUB 580,590,600,610,620,630,640,650 
520 IF LN$=WO$ (K) THEN GOTO 660 
530 NEXT LN 
540 LN$="" 

550 X=J : Y=I 
560 NEXT D 
570 GOTO 420 

580 Y=Y+1 : DI$="S": RETURN 
590 X=X-1 : Y=Y+1 : DI$="SW": RETURN 
600 X=X-1 : DI$="W": RETURN 
610 X=X-1 : Y=Y-1 : DI$="NW": RETURN 
620 Y=Y-1: DI$="N": RETURN 
630 X=X+1: Y=Y-1 : DI$="NE": RETURN 
640 X=X+1 : DI$="E": RETURN 
650 X=X+1: Y=Y+1 : DI$="SE": RETURN 
660 LPRINT USING"\ \ UU 

## \\";WO$(K),J,I,DI$ 

670 PRINT#2,W0$ (K) ; J ; I;DI$ 

680 LPRINT: GOTO 430 
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The “Blackjack” program allows you to play Blackjack on the Model 100. The rules of the game 
were adapted from the book, Beat the Dealer by Edward 0. Thorp (Vintage Books, 1966). 

Four packs of cards are shuffled together. Any time there are less than 30 cards remaining 
before the deal, the deck is reshuffled. Prior to the deal, you make a bet. 

You will then receive two cards face up; the dealer receives one card face up and one card face 
down. If the first two cards dealt to you or to the dealer consist of an Ace and a 10, it constitutes a 
Natural or Blackjack. If you have a Natural and the dealer does not, you receive 1.5 times your 
original bet. If the dealer has a Natural and you do not, you lose your original bet. If both you and 
the dealer have a Natural, no money changes hands. 

Once the cards are dealt and neither you nor the dealer has a Natural, you can elect to hit 
(receive another card) or pass. If you “bust” (your total exceeds 21), you lose your bet. 

After you have drawn your cards, the dealer turns over the down card. If the total is 16 or less, 
cards must be drawn until the total is 17 or more. 


Using the Program 

When you start the program, you will see a message indicating that the deck is being shuffled. 
You will then be prompted for your bet. You can enter any amount from $1.00 to $10,000 in 
increments of $0.50. 

Once the cards are dealt, you can either type H to “hit” (take a card) or P to pass. Once you are 
satisfied with your hand and you pass, you will see the dealer’s cards and a message indicating 
whether you won or lost. Press the SPACE BAR to continue playing. You can see the results of your 
betting at the top of the screen. 

When you are through playing, type a Q in response to the bet prompt. 

Requirements 

This program requires about 5.5K bytes of RAM. 


Listing 

10 ' *** Blackjack Program *** 

20 ' *** Copyright 1983 by Rick Perry *** 

30 DEFINT A,C-0,Q-Z 
40 DIM Nl(10),N2(10),N3<10) 

50 B=0: P=0 
60 ND=4: NC=0 

70 DIM Q$(3),R$(3),D(ND*52) 

80 G0SUB 920 
90 GOTO 110 

100 A$=INKEY$: IF A$=CHR$(27) THEN G0SUB 880: GOTO 100 ELSE IF A$ 
<> CHR$<13) AND A$ <> " " THEN 100 
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110 CLS: GOSUB 820 

120 IF P > 2E+06 THEN PRINT "The house is busted!": END 
130 IF P < -2E+06 THEN PRINT "Your credit isn't good at this 
table.": END 

140 IF NC < 30 THEN GOSUB 850: GOTO 170 

150 IF A$=" " THEN 170 ELSE PRINTS 83, "Your bet $";: PRINT USING 
F$+".##";B; : GOTO 210 
160 PRINTS 83, ELS; 

170 PRINTS 83, "Your bet?";: LINE INPUT ”";A$: B=VAL(A$) 

180 IF INSTR (A$,"Q") OR INSTR (A$,"Q") THEN MENU 
190 IF INSTR (A$, "R") OR INSTR (A$, "Q") THEN POWER OFF, RESUME 
200 IF B < 1 OR B > 10000 OR B <> FIX(B*2)/2 THEN SOUND 9394,10: 
GOTO 160 

210 M1=0: H1$="": M2=0: H2$="": M3=0: SPLIT=0: D1=1: D3=1 : GOSUB 
670: GOSUB 630: GOSUB 670 

220 IF INSTR (LEFT$(H1$,3) ,C$)THEN M3=1 : H3$=C$:N3 (1 )=N1 (2) 

230 GOSUB 630: PRINTS 121, "I show:";C$;: IF M3=1 THEN PRINTS 
161,"";ELSE PRINTS 201,""; 

240 PRINT YH$;H1$; : IF C$ <> " A" THEN 270 

250 QN=0: GOSUB 840: IF INSTR C"NN",A$) THEN 270 

260 IF S2=21 THEN P=P+B: BEEP ELSE P=P-B/2: SOUND 9394,10 

270 IF SI =21 OR S2=21 THEN 600 

280 IF M3=0 THEN 390 

290 QN=1 : GOSUB 840: IF INSTR ("NN",A$) THEN PRINTS 161, ELS; : GOTO 
390 

300 SPLIT=1 : Ml =1 : H1$=H3S: GOSUB 670: GOSUB 710: PRINTS 
161, ELS;: PRINTS 161,YH$;H3$; 

310 IF N1 (1 ) =1 THEN PRINT " =";S3;: GOTO 450 

320 IF S3 <> 10 AND S3 <> 11 THEN 350 

330 QN=2: GOSUB 840: IF INSTR ("NN",A$)THEN 350 

340 GOSUB 710: D3=2: GOTO 380 

350 QN=3: GOSUB 840: IF INSTR("PP",A$) THEN 380 

360 GOSUB 710: PRINTS 161,YH$;H3$; : IF S3 < 22 THEN 350 

370 PRINT " =";S3;" Busted!";: SOUND 9394,10: P=P-B: GOTO 390 

380 PRINTS 161,YH$;H3$;" =";S3; 

390 PRINTS 201 ,YHS;H1$; : IF Si <> 10 AND Si <> 11 THEN 420 
400 QN=2: GOSUB 840: IF INSTR("NN",A$) THEN 420 
410 GOSUB 670: D1=2: GOTO 450 
420 QN=3: GOSUB 840: IF INSTR ("PP", AS) THEN 450 
430 GOSUB 670: PRINTS 201 ,YH$;H1$; : IF Si < 22 THEN 420 
440 PRINT" =";S1;" Busted!";: SOUND 9394,10: P=P-B: IF SPLIT=0 OR 
S3 > 21 THEN 100 ELSE 460 
450 PRINTS 201,YH$;H1$;" =";S1; 

460 PRINTS 261, "I have:";H2$; : GOSUB 800 
470 IF S2 < 17 THEN GOSUB 630: GOTO 460 
480 PRINT " =";S2; 

490 IF S2 <= 21 THEN 530 ELSE PRINT " Busted!"; 

500 IF SI < 22 THEN PRINTS 201 ,YHS; Hi $; " =";Sl;"Win! "; : P=P+D1*B: 
BEEP 

510 IF SPLIT=1 AND S3 < 22 THEN PRINTS 1 61 ,YH$;H3S; " =";S3;" 

Win!";: P=P+D3*B: BEEP 
520 GOTO 100 

530 IF SI > 21 THEN 560 ELSE PRINTS 201,YH$;H1$;" =";S1; 

540 IF SI > S2 THEN PRINT " Win!";: P=P+D1*B: BEEP: GOTO 560 
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550 IF Sl=S2 THEN PRINT " Tie!";: SOUND 4697,10 ELSE PRINT " 
Lose!";: P=P-D1*B: SOUND 9394,10- 
560 IF SPLIT <> 1 OR S3 > 21 THEN 100 ELSE PRINTS) 161,YH$;H3$; " 
=";S3; 

570 IF S3 > S2 THEN PRINT " Win!";: P=P+D3*B: BEEP: GOTO 100 

580 IF S3=S2 THEN PRINT " Tie!";: SOUND 4697,10 ELSE PRINT " 
Lose!";: P=P-D3*B: SOUND 9394,10 
590 GOTO 100 

600 IF S2=S1 THEN PRINTS) 281,"*** We both have Blackjack *** 

Tie!";: SOUND 4697,10: GOTO 100 
610 IF S2=21 THEN PRINTS 281,"*** I have Blackjack *** You 
lose!";: SOUND 9394,10: P=P-B: GOTO 100 
620 PRINTS 281,"*** You have Blackjack *** You win!";: BEEP: 
P=P+1.5*B: GOTO 100 
630 M2=M2+1: GOSUB 750 

640 N2(M2)=CN: H2$=H2$+C$: S2=0: FOR 1=1 TO M2: S2=S2+N2(I): NEXT I 
650 IF INSTR (H2$,"A") AND S2 < 12 THEN S2=S2+10 
660 RETURN 

670 M1=M1+1: GOSUB 750 

680 N1 (Ml )=CN: H1$=H1$+C$: S1=0: FOR 1=1 TO Ml: S1=S1+N1(I): NEXT 
I 

690 IF INSTR (HI $,"A") AND SI < 12 THEN S1=S1+10 
700 RETURN 

710 M3=M3+1: GOSUB 750 

720 N3(M3)=CN: H3$=H3$+C$: S3=0: FOR 1=1 TO M3: S3=S3+N3(I): NEXT 
I 

730 IF INSTR (H3$,"A") AND S3 < 12 THEN S3=S3+10 
740 RETURN 

750 GOSUB 810: RC=CINT(1+NC*RAN#) : CN=D(RC): D(RC)=D(NC): NC=NC-1 

760 IF CN=1 THEN C$= " A": RETURN 

770 IF CN < 11 THEN C$=STR$(CN): RETURN 

780 IF CN=1 1 THEN C$=" J" ELSE IF CN=12 THEN C$=" Q" ELSE IF 
CN=13 THEN C$=" K" 

790 CN=10: RETURN 

800 FOR 1=1 TO 300: NEXT I: RETURN 

810 TMP#=25173*SEED#+13849: SEED#=TMP#-FIX (TMP#/65536 ! )*65536 ! : 
RAN#=SEED#/65536 ! : RETURN 
820 IF B > ABS(P) THEN G=LEN (STR$ (INT (B) ) ) ELSE 
G=LEN (STR$ (INT CABS (P) ) ) ) 

830 F$=RIGHT$ CFMT$,G+1 )+",": PRINTS 41, "You now have: $"; : PRINT 
USING F$+".##";P: RETURN 

840 PRINTS 281,Q$(QN);" ? "; : A$=INPUT$(1 ) : PRINTS 281, ELS;: IF 
A$=CHR$ (27) THEN GOSUB 880: GOTO 840 ELSE IF 
INSTR (R$(QN), AS) =0 THEN 840 ELSE RETURN 
850 NC=ND*52 : PRINTS 281, "Shuffling. Wait..."; 

860 FOR J=0 TO ND*4-1 : FOR 1=1 TO 13: D(J*13+I)=I: NEXT I: NEXT J 
870 PRINTS 281, ELS;: RETURN 

880 PRINTS 241, "Purse? ";: LINE INPUT "";AS: IF AS <> "" THEN 
P=VAL (ZAS) 

890 PRINTS 241, ELS; "Bet ? "; : LINE INPUT "";A$: IF AS <> "" THEN 
B=VAL (AS) 

900 PRINTS 241, ELS;: RETURN 
910 ' Screen routine 
920 CLS 
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930 LINE (0,0) -(239, 63) ,1,13 
940 LINE (2,2)-(237,61),1,B 
950 LINE (4,4)- (235,59) ,1 ,B 
960 PRINTS 174, "Blackjack" 

970 FOR DLY=1 TO 1000: NEXT DLY 
980 FMT$="##########" 

990 YH$="You have:" 

1000 EL$=CHR$(27)+"L" 

1010 Q$(0)="lnsurance" 

1020 Q$(1 )="Split" 

1030 Q$(2)="Doubte Down" 

1040 Q$(3)="Hit or Pass" 

1050 R$(0)="YYNN" 

1060 R$ (1 ) =R$ (0) 

1070 R$ (2)=R$ (0) 

1080 R$(3)="HHPP" 

1090 SEED#=VAL (RIGHTS (TIMES, 2) ) + 60*VAL(MID$(TIME$,4,2) ) + 3600 
* (VAL (LEFTS (TIME$,2) )MOD 12) 

1100 RETURN 
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The “Ricochet” program allows you to play a game similar to paddle ball. It is designed for two 
players, with players alternating turns. In this game, a ball is served from the top of the screen, 
and you must move the paddle to prevent the ball from hitting the bottom of the screen. 


Using; the Program 

When you start the game, you will see the prompt 

Player #1 Ready ? 

When you are ready to begin play, press ENTER. The following keys will control the paddle: 


Key 

Paddle Response 

ESC 

Far left 

**»**%*##%«»♦•«»*** 
- '*'X‘ ********* 

, T •• . 

■ 1 Arf - s ft AW T - 

2 

Incremental move left 

SPACE BAR 

center 


Incremental move right 

Right center 

BKSP 

Far right 


Each time you successfully hit the ball with the paddle, the top wall moves down by one line. 
The number of points that you receive will be proportional to the size of the top wall; as the wall 
moves farther down the screen, the greater the number of points you will receive. 

If you are able to continue playing until the wall reaches its bottom point, you will receive a 
bonus of 1000 points. You need 10,000 points to win. 

Requirements 

This program requires slightly over 2K bytes of RAM. 


Listing 

10 1 *** Ricochet *** 

20 ' *** Copyright 1983 by Rick Perry *** 

30 CLS 

40 PRINTS) 55, "Ricochet" 

50 PRINTS) 200, "Press any key to continue..." 

60 A$=INKEY$: IF A$="" THEN 60 

70 CLS: DEFINT A-Z: Si =0 : S2=0: P=2: C$=CHR$(27) + "12 -=" + 
CHR$(8): PRINT "One moment please..." 
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80 FOR 1=1 TO VAL (RIGHTS (TIMES, 2) ) + VAL (MIDS (TIME$,5,1 ) ) *60: 
D#=RND (1 ) : NEXT I 

90 IF P=2 AND (SI > 9999 OR S2 > 9999) THEN 420 
100 IF P=2 THEN P=1 ELSE P=2 

110 PRINTS 240," Player P;" Ready ? : PRINTS 259,""; 

120 A =ASC (INPUTSd )) 

130 IF A= 113 OR A= 81 THEN GOTO 420 
140 IF NOT ( A=1 21 OR A=13 OR A=89) THEN GOTO 120 
150 PRINTS 41, "Player";: PRINTS 83, "#1";: PRINTS 71, "Player"; : 
PRINTS 1 13,"#2"; 

160 PRINTS 161, SI;: PRINTS 191, S2; 

170 Z=1 14: LINE (Z,60)-(Z+8,60) : GOSUB 490 

180 X=60 + 115 * RND(I): Y=D+3: GOSUB 460: LINE (X,Y)-(X+2,Y- 
2),1,BF: 

190 GOSUB 310: IF W=0 THEN 90 

200 A$=INKEY$: IF A$="" THEN 190 ELSE ON INSTR(C$,A$) GOTO 
220,230,240,250,260,270,280 
210 GOTO 190 
220 Z1=6Q-Z: GOTO 290 
230 Z1=87-Z: GOTO 290 

240 IF Z > 62 THEN Zl=-3: GOTO 290 ELSE 190 
250 Z1=1 1 4-Z: GOTO 290 

260 IF Z < 168 THEN Z1=3: GOTO 290 ELSE 190 
270 Z 1 =1 41 —Z : GOTO 290 
280 Z1=168-Z 

290 LINE (Z,60)- (Z+8,60) ,0: Z=Z+Z1 : LINE(Z,60)-(Z+8,60),1 
300 GOTO 190 

310 IF Y=59 AND (X > Z+8 OR X+2 < Z) THEN SOUND 9394,15: W=0: 
G0SU8 490: RETURN 
320 IF Y=59 OR Y=D+3 THEN Y1=-Y1 

330 IF Y=59 THEN D=D+1 : LINE (59,D)- (177, D) : GOSUB 460: GOSUB 390: 
IF W=0 THEN RETURN 

340 IF X=174 THEN XI =-1 ELSE IF X=60 THEN Xl=1 
350 LINE(X+X1,Y+Y1)-(X+X1+2,Y+Y1-2),1,BF: LINE(X,Y-1-Y1 )-(X+2,Y- 
1-Y1),0 

360 IF XI > 0 THEN LINE(X,Y)-(X,Y-2),0 ELSE IF XI < 0 THEN 
LINE (X+2, Y)- (X+2,Y-2) ,0 
370 X=X+X1 : Y=Y+Y1 
380 RETURN 

390 IF D=53 THEN D=1053: W=0: BEEP: GOSUB 490 
400 IF P=1 THEN S1=S1+D: PRINTS 161,S1;ELSE S2=S2+D: PRINTS 
191, S2; 

410 RETURN 

420 CLS : IF S1=S2 THEN PRINTS 241, "Tie Game!"; 

430 IF SI > S2 THEN PRINTS 241, "Player #1 Wins!"; 

440 IF S2 > SI THEN PRINTS 241, "Player U2 Wins!"; 

450 MENU: END 

460 XI =INT (7*RND (1 ) ) 

470 IF XI =3 THEN XI =0 ELSE IF XI > 3 THEN XI =1 ELSE X1=-1 
480 RETURN 

490 FOR J=1 TO 1000: NEXT J: RETURN 
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The “Music Maker” program allows you to compose music using the Model 100. In order to do 
so, you must use the Model 100’s built-in TEXT program to create a text (.DO) file that contains 
the data (music notation). The Music Maker program then converts this data to SOUND state- 
ments, loads those statements into another BASIC file, and plays the song. 

Using the Program 

Before you can run the program, you must create a text (.DO) file containing the data for the 
song you want to play. The file must be in the following format: 

Note TAB Octave TAB Length ENTER 

When entering the data, type the value for Note and press TAB, then type the value for Octave and 
press TAB, and finally type the value for Length and press ENTER. The parameters Note, Octave, 
and Length are defined as follows: 

Note is a letter A through G (upper- or lowercase) and specifies a note in the musical scale. To 
specify a sharp or flat, Note can be followed by an S (for sharp) or an F (for flat). 

Octave is a number between 0 and 5 that specifies the octave of Note. If you wish to specify a 
rest, enter any valid Note and specify a 0 for Octave. 

Length is a number used to specify the length of Note. If you want to specify a whole note enter 
a 1; if you want to specify a quarter note enter a 4, an eighth note, an 8, a sixteenth note, a 16, 
and so on. Length may be followed by an optional period to increase the duration of Note by 1/2. 
For example, to specify a dotted eighth note you would enter “8”. 

Any line that does not specify a note will be used as a comment line in the finished program. It 
is a good idea to mark measures this way. 

Here is an example of a music .DO file: 



When you run the Music Maker program, you’ll be asked the name of the .DO file containing 
the data for the song. Next, you 11 be asked the name you want to assign to the file once it has been 
converted to SOUND statements. Assign a name such as SONG and press ENTER. At this point, 
the contents of the text file containing the song will be converted to SOUND statements and 
stored in the file that you specified. After several seconds, you will hear the song and the OK 
prompt will return. 
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Requirements 

This program requires about 2K bytes of RAM for the program itself plus memory for the .DO 
and .BA files for each song. 


Listing 

10 ' *** Music Maker Program *** 

20 ' *** Copyright 1983 by Rex Rivers *** 

30 CLS: PRINTS 92, "Music Maker Program" 

40 PRINTS 200, "Press any key to continue..." 

50 A$=INKEY$: IF A$="" THEN 50 
60 CLS: CLOSE: MAXFILES=2 
70 DEFINT I-N 

80 DIM NV (1 2,5) ,NS (7),NF (7) 

90 FOR NN=1 TO 12: FOR N0=1 TO 5: READ NV(NN,N0): NEXT N0,NN 

100 DATA 11172,5586,2793,1396,698 

110 DATA 9952,4968,2484,1244,622 

120 DATA 9394,4697,2348,1174,587 

130 DATA 8368,4184,2092,1046,523 

140 DATA 7456,3718,1864,932,466 

150 DATA 7032,3516,1758,879,439 

160 DATA 12538,6269,3134,1567,783 

170 DATA 10544,5272,2636,1318,659 

180 DATA 8866,4433,2216,1108,554 

190 DATA 7900,3650,1975,987,493 

200 DATA 6642,3321,1660,830,415 

210 DATA 11836,5918,2959,1479,739 

220 DATA 8,12,3,8,9,2,10,9,6,10,11,5,12,11 

230 FOR NN=1 TO 7: READ NS(NN): READ NF CNN) : NEXT 

240 BEEP: INPUT "What is the .DO music file you created";FI$ 

245 IF FI$="" THEN 240 

250 OPEN "RAM:" + FI$ + ".DO" FOR INPUT AS 1 

260 BEEP: PRINT: INPUT "What do you want to call this file once 
it is converted to SOUND statements"; F0$ 

265 IF F0$="" THEN 260 

270 OPEN "RAM:" + F0$ + ".D0"F0R OUTPUT AS 2 
280 M=64 

290 LINE INPUT#1 ,A$ 

300 PRINT A$ 

310 I=INSTR(1 ,A$,CHR$ (9) ) 

320 IF 1=0 THEN LN=LN+10: PRINT#2,LN; ;A$: GOTO 290 

330 N$=MID$(A$,1,I) 

340 N=ASC(N$)-64 
350 N=N AND 95 

360 IF N < 1 OR N > 7 THEN LN=LN+10: PRINT#2,LN;"' ";A$: GOTO 290 
370 IF I > 2 THEN IF INSTR (1 ,N$,"S")0R INSTR(1,N$,"S")THEN 
N=NS (N) ELSE N=NF (N) 

380 I=INSTR(I,A$,CHR$(9)) 

390 0=VAL(MID$(A$,I+1 ,1 )) : IF 0 < 0 OR 0 > 5 THEN LN=LN+10: 
PRINT#2,LN;"'";A$: GOTO 290 
400 I=INSTR (1+1 ,A$,CHR$(9) ) 
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410 L=VAL(MID$(A$,I+1,LEN(A$)-I)): IF L < 1 OR L > M THEN 
LN=LN+10: PRINT#2,LN;'" ";A$: GOTO 290 
420 IF INSTR(1,A$,".")THEN D=.5 ELSE D=0 

430 LN=LN+10: PRINT#2,LN; "S0UND";NV<N,0);",";M\L + INT (M/L*D) 
440 IF EOF (1 ) THEN BEEP ELSE 290 
445 PRINT #2, "65000 MENU" 

450 CLOSE 
460 CLS 

470 LOAD "RAM:" + F0$ + ".DO",R 
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Programmers will find this section especially useful. It includes programs that allow you to 
make more efficient use of your Model 100’s features. For instance, there’s a program that allows 
you to renumber a BASIC program, a program that helps you format a BASIC program listing, a 
program that deletes spaces and remark statements to conserve memory, and more. 
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Whenever you perform a cold start on your Model 100 (pressing CTRL PAUSE while turning on 
the power), you lose all the information stored in the Model 100’s RAM. This includes things like 
the date, time, and custom function key definitions. The “Model 100 Setup” program will allow 
you to reinitialize your Model 100 after a cold start. 

Using the Program 

When you run the program, you will be prompted for the current date, time, and day of the 
week. In addition, the program will prompt you for the name of the program to use when you turn 
on your Model 100 (IPL value) and a value for the automatic power-off. 

After you have answered all of the prompts, the following functions will be assigned to the 
function keys: 

Key l CLS: FILES 

Key 2 CLEAR 256 

Key 3 EDIT 

Key 4 RUN 

Key 5 LIST 

Key 6 ?FRE(0) 

Key 7 RUN 

Key 8 MENU 

By changing program lines 130 through 200, you can define the function keys for your specific 
needs. If you redefine the function keys and wish to restore them to their default values, run the 
BASIC interpreter, type CALL 23164,0,23366, and press ENTER. Then type CALL 27795 and 
press ENTER. 

Remember that you will need to store the program on cassette tape since all programs stored 
in RAM will be lost when you do a cold start. 

Requirements 

This program requires about 1.5K bytes of RAM. 

Listing 

10 ’REM *** Setup Program *** 

20 ' *** Copyright 1983 by Larry Gensch *** 

30 CLS: PRINTS 90,"Model 100 Setup Program" 

40 PRINTS 200 / "Press any key to continue..." 

50 A$=INKEY$: IF A$="" THEN 50 
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100 MAXFILES=0: IPL 

110 CLS: SCREEN, 1 

120 Q$=CHR$ (34) : CR$=CHR$(13) 

130 KEY1, "CLs: Fi Les" + CR$ 

140 KEY2, "Clear256" + CR$ 

150 KEY3, "Edit” + CR$ 

160 KEY4, "Run" + CR$ 

170 KEYS, "List" + CR$ 

180 KEY6, "? Fre (0) FRE ("+QS+AS+") " + CR$ 

190 KEY7, "Run" + Q$ + "RFU" + Q$ + CR$ 

200 KEYS, "Menu" + CR$ 

210 ON ERROR GOTO 500 
220 PRINT "Date = " DATES 
230 LINE INPUT "Date: ";A$ 

240 IF LEN (A$) > 0 THEN DATE$=A$ 

250 PRINT "Time = "TIMES 
260 LINE INPUT "Time: ";A$ 

270 IF LEN (AS) > 0 THEN TIME$=A$ 

280 PRINT "Day = "DAYS 
290 LINE INPUT "Day: ";A$ 

300 IF LEN (AS) > 0 THEN DAY$=A$ 

310 LINE INPUT "IPL: ";A$ 

320 IF LEN (AS) =0 THEN 400 
330 IPL AS 

400 P=0: INPUT "POWER OFF (in 1/10 SEC): ";P 
410 IF P=0 THEN POWER CONT ELSE POWER P 

499 MENU 

500 IF (ERL=240) OR (ERL=270) OR (ERL=300) OR (ERL=410) OR 
(ERL=400) THEN 550 

510 ' 

520 PRINT "Line";ERL": ";ERROR ERR 
530 END 

550 PRINT "Format Error — Please Re-enter" 

560 IF ERL=240 THEN RESUME 230 
570 IF ERL=270 THEN RESUME 260 
580 IF ERL=300 THEN RESUME 290 
590 IF ERL=4Q0 THEN RESUME 400 
600 IF ERL=410 THEN RESUME 400 
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The “RENUM” utility program allows you to renumber a BASIC program that has been saved 
in ASCII format as a text (.DO) file. This is useful when you need to insert more lines than there is 
room for or when you need to renumber a program to make it easier to follow. The program will 
renumber all line numbers and all references to a line number used in a statement (GOTO or 
GOSUB, for example). Line numbers appearing in REM statements will not be changed. 


Using the Program 

Before you can renumber a program, it must be stored in ASCII format with the lines appear- 
ing in sequential order. To save a file in ASCII format, load the .BA file into BASIC, then type 
SAVE filename . DO and press ENTER. 

When you start the renumbering program, all of the user files in RAM will be displayed 
followed by the message, NAME OF .DO FILE TO RENUMBER? Type in the name of the text 
(.DO) file exactly as it appears in the list of files and press ENTER. The next prompt will ask you, 
WHAT IS THE NEW FIRST LINE NUMBER OF THE PROGRAM? Type in an appropriate 
number (such as 10). You’ll then be asked, WHAT IS THE LINE NUMBER INCREMENT? Type 
in the increment that you want between successive lines (10 for example). When you press ENTER, 
program execution will begin. Line numbers less than 0 or greater than 65529 cannot be used. 

The amount of time it takes to execute the RENUM program will depend on the length of the 
program you are renumbering. Long programs may take quite a while since, in effect, every 
character and space within the program will have to be examined. 

When program execution is complete, the BASIC OK prompt and the blinking cursor will 
return. You should then type LOAD “filename. DO” and press ENTER. When the cursor returns, 
type SAVE “filename. BA” and press ENTER. You can then go back and delete the text (.DO) 
version of the program to conserve memory. 


Requirements 

This program requires about 3.5K bytes of RAM; the amount of additional memory required 
depends upon the size of the program to be renumbered. 


Listing 

10 1 *** RENUM — A BASIC Renumbering Program *** 

20 ' *** Copyright 1983 by R. K. Curtis *** 

30 CLS: PRINTS 87, "BASIC Renumbering Program" 

35 PRINT 

40 PRINT: PRINTS 200, "Press any key to continue..."; 

50 A$=INKEY$: IF A$= "" THEN 50 
60 CLEAR 500 
70 GOSUB 960 

80 CLEAR 500: IF MAXFILES < 1 THEN MF=1 : MAXFILES=1 ELSE MF=0 
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90 PRINT 

100 LINE INPUT "Name of the .DO file to renumber? ";F$ 

105 IF F$= ,,H THEN 100 
110 PRINT 

120 PRINT "What is the new first Line number" 

130 PRINT "of the program"; 

135 GOSUB 2000: N= VAL(R$) 

140 PRINT 

150 PRINT "What is the Line number increment"; 

155 GOSUB 2000: L= VAL(R$) 

160 IF L <= 0 THEN L=10 
162 IF N < 0 THEN N=0 

165 CLS: PRINTS 129,"Now renumbering your f i Le" 

170 PRINTS 210," PLease be patient.." 

175 ON ERROR GOTO 3000 

180 OPEN F$ FOR INPUT AS 1: 1=1 

190 LINE INPUT#1,A$ 

200 A=A + LEN (A$) 

210 IF EOF (1 ) THEN 230 
220 1=1+1: GOTO 190 
230 CLOSE 1 

240 OPEN "I . DO" FOR OUTPUT AS 1 
250 PRINT#1,I,N,L,MF,F$ 

260 CLOSE 1 

270 CLEAR A+300 

280 OPEN "I . DO" FOR INPUT AS 1 

290 INPUT #1,I,N / L,MF,F$ 

300 CLOSE 1 
310 KILL "I . DO" 

320 DIM A$(I),B$(I) 

330 OPEN F$ FOR INPUT AS 1 

340 FOR J=1 TO I: LINE INPUT#1,A$(J ) : NEXT J 

350 CLOSE 1 

360 FOR J=1 TO I: FOR K=1 TO LEN CAS (J)) 

370 S$=LEFT$ (AS (J ) ,1 ) 

380 IF ASC(SS) < 58 AND ASC(SS) > 47 THEN B$(J)=B$(J) + S$: 
A$(J)=RIGHT$(A$(J),LEN(A$(J))-1) ELSE NEXT J 
390 IF J > I THEN 410 
400 NEXT K: NEXT J 

410 FOR J=1 TO I: S$="": F0=0: FOR K=1 TO LEN(ASCJ)) + 253 

420 IF K > LEN (AS (J)) THEN 560 

430 IF MID$(A$(J),K,1)= "'" AND F0=0 THEN 560 

440 IF MID$(A$(J),K,1)= " " THEN 550 

450 IF MID$(A$(J),K,1)= CHRSC34) AND F0=0 THEN F0=1 : GOTO 550 

460 IF MIDS (AS (J ) ,K,1 )= CHRSC34) AND F0=1 THEN F0=0: GOTO 550 

470 IF F0=1 THEN 550 

480 S$=SS + MID$(A$(J ),K,1 ) : S$=RIGHT$(S$,4) 

490 IF RIGHT$(S$,3)= "REM" AND F0=0 THEN 560 
500 IF S$= "DATA" AND F0=0 THEN 560 

510 IF S$= "GOTO" OR S$= "THEN" OR S$= "ELSE" OR S$= "OSUB"OR S$= 

"SUME" OR S$= "TORE" THEN K1=0: GOSUB 630 
520 IF RIGHTS (S$ / 3)="RUN" THEN K1=0: GOSUB 630 
530 IF S$="EDIT" OR S$="LIST" THEN Kl=0: GOSUB 630 
540 IF S$="LETE" THEN Kl=0: GOSUB 630 
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550 NEXT K 
560 NEXT J 

570 OPEN F$ FOR OUTPUT AS 1 
580 FOR J=1 TO I 

590 PRINTS, RIGHTS (STR$(J*L+N“L) , LEN (STRS (J*L+N~L) )-1 ) ; A$(J) 
600 NEXT J 
610 CLOSE 1 

620 BEEP: IF MF=1 THEN MAXFILES=0: MENU ELSE MENU 
630 IF K+1 > LEN (AS (J)) THEN RETURN ELSE IF K1=0 THEN K1=K+1 ELSE 
K1=K1+1 

640 IF K1 > LEN (AS (J)) THEN PRINT "Error in Line ";B$(J): RETURN 
650 S$=MID$(A$(J),K1,1) 

660 IF S$=" " AND K1+1 > LEN (AS (J)) THEN 880 
670 IF S$=" " THEN 630 

680 IF S$="," AND MID$(A$(J),K1-1,1) = "," THEN K=K1 : GOTO 630 
690 IF S$=V' THEN 780 

700 IF S$="-" THEN 830 

710 IF ASC(SS) <= 47 OR ASC(S$) >= 58 THEN 750 

720 IF ASC(SS) > 47 AND ASC(SS) < 58 THEN Z$ = ZS+SS 

730 IF K1 = LEN (AS (J)) THEN 880 
740 GOTO 630 

750 IF Z$= "" THEN S$ = RETURN 
760 GOSUB 910 

770 AS (J ) = LEFT$(A$(J),K) + Z$ + RIGHT$(A$(J ), LEN(A$(J)) - 
K1+1): K= K + LEN(ZS): ZS=" M : RETURN 
780 IF Z$="" THEN S$="": GOTO 630 
790 GOSUB 910 

800 AS=LEFT$(A$(J ),K) + Z$ + + RIGHT$(A$(J),LEN(A$(J))-K1) 

810 K= K + LEN(ZS) + 1: Z$="": S$="": K1=0 

820 A$(J )=A$: GOTO 630 

830 IF Z$= M " THEN S$="": RETURN 

840 GOSUB 910 

850 A$=LEFT$(AS(J) / K) + Z$ + + RIGHTS(A$(J ),LEN(A$(J ) )-K1 ) 

860 K = K + LEN (Z$)+1 : Z$="": SS="": K1=0 

870 A$(J )=A$: GOTO 630 

880 IF ZS="" THEN K=K1 : RETURN 

890 GOSUB 910 

900 AS (J )= LEFTS (AS (J),K) + Z$: Z$="": RETURN 
910 FOR M=1 TO I: IF VAL(Z$)= VAL(B$(M)) THEN Z$ = 

R IGHTS (STRS (M*L+N-L ) , LEN(STR$(M*L+N-L) )-1 ) : GOTO 950 
920 NEXT M 

930 PRINT" Error in New Line ";J*L+N-L 

940 PRINT "(Old Line ";B$(J);"); Line ";Z$;" not found" 

950 RETURN 
960 CLS 
970 FILES 
980 A=65024! 

990 FOR J=1 TO 8 
1000 B=PEEK (A+I) 

1010 C$(J)=C$(J) + CHR$(B) 

1020 NEXT J 
1030 FOR J=1 TO 8 

1040 D= INSTR(1,C$(J>,"I .DO"): IF D <> 0 THEN 1070 
1050 NEXT J 
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1060 RETURN 

1070 SOUND 2000,100: PRINT: PRINT "Rename Your File I. DO so 
that": PRINT "It is not destroyed!": S: 

1080 MENU: END 
2000 INPUT R$ 

2005 IF R$="" THEN 2100 
2010 FOR M= 1 TO LEN(R$) 

2020 M$= MID$(R$,M,1) 

2030 IF ASCCMS) < 48 OR ASC(M$) > 57 THEN 2100 
2040 NEXT M 
2050 RETURN 

2100 PRINT "Please give us an integer.."; 

2110 PRINT "as your line number or line number increment.." 
2120 GOTO 2000 

3000 BEEP: IF ERR <> 52 THEN RESUME 40 

3010 CLS: PRINT "ERROR ** The file you want to renumber" 
3020 PRINT " does not exist **" 

3030 GOTO 40 
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The “BASIC Print Format” program formats a BASIC listing by putting the program title, the 
date, the time, and the page number at the top of each page. Each line of the program is listed 
with the line number right-justified. A maximum of 74 characters is printed on each line. State- 
ments that are longer than 74 characters are printed on two or more successive lines. 

Using the Program 

The BASIC program that you want to list (the target program) can be stored either in RAM or 
on cassette. If the program is in RAM, it may be either a .DO or a .BA file. If the program is 
stored on cassette, it must be a .DO file. 

When you run the program, you’ll be asked for a file name. Type in the name of the BASIC 
program you want to format; you do not need to include the extension .DO. If the program is 
stored on cassette, be sure to preface the file name with CAS:. Once you specify the name of the 
file and press ENTER, the listing will be sent to the printer. 

SKIP and EJECT commands may be embedded in the target program to produce a more 
readable listing. These commands are entered as BASIC remarks. To enter them, type an apos- 
trophe followed by the word SKIP or EJECT, with no intervening spaces. SKIP and EJECT 
commands may not be combined with other BASIC statements; they must be on lines by them- 
selves. The word REM may not be used in place of the apostrophe. 

The SKIP and EJECT commands work as follows: 

• SKIPw (where n is the value 1, 2, or 3) will cause n number of blank lines to be skipped. 

• EJECT causes the Print Format Program to list the next line at the top of a new page. The 
command itself will not be printed. 


Requirements 

This program requires about 14K bytes of RAM. You will also need a parallel printer. 


Listing 

100 1 *** BASIC Print Format Program *** 

200 • *** Copyright 1983 by General Business Systems, Inc. *** 
300 CLS: PRINTS 55, "BASIC Print Format" 

400 PRINTS 200, "Press any key to continue..." 

500 A$=INKEY$: IF A$="" THEN 500 

600 CLEAR 1500 

700 DEFSTR S 

800 DEFINT I,J 

900 DEFSNG A 

1500 CLS 

1600 DIM SV(127) 
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1700 DATA END, FOR, NEXT, DATA, INPUT 

1800 DATA DIM, READ, LET, GOTO, RUN,IF,RESTORE,GOSUB, RETURN, 

REM, STOP, WIDTH 
1900 DATA ELSE, LINE, EDIT 

2000 DATA ERROR, RESUME,OUT,ON,DSKO$,OPEN, CLOSE, LOAD 
2100 DATA MERGE, F ILES, SAVE,L FILES, LPRINT,DEF, POKE 
2200 DATA PRINT, CONT,LIST,LLIST, CLEAR, CLOAD,CSAVE 
2300 DATA TIMES, DATE$, DAYS, COM, MDM, KEY, CLS, BEEP, SOUND, LCOPY 
2400 DATA PSET, PRESET, MOTOR, MAX, POWER, CALL, MENU, IPL, 
NAME,KILL, SCREEN, NEW 

2500 DATA TAB (, TO, USING, VARPTR, ERL, ERR, STRINGS, INSTR,DSKI$ 
2600 DATA INKEYS, C S RL IN, OFF,HIMEM, THEN, NOT, STEP, +,-,* 

2700 DATA /,%AND,OR,XOR,EQV,IMP,MOD,\,>,=,<,SGN,INT,ABS 
2800 DATA FRE,INP,LPOS,POS,SQR,RND,LOG,EXP,COS,SIN,TAN 
2900 DATA ATN, PEEK, EOF, LOC,LOF 

3000 DATA CINT,CSNG, CDBL, FIX,LEN,STR$,VAL,ASC,CHR$ 

3100 DATA SPACES, LEFTS, RIGHTS, MIDS, ' 

3200 GOSUB 4000 

3300 IF SE="BA" THEN GOSUB 4900 ELSE GOSUB 22300 
3400 IF IL > 0 THEN LPRINT CHRSC12) 

3500 MENU 
3600 ' SKIP3 

3700 REM ****************** 

3800 REM * INITIALIZATION * 

3900 REM ****************** 

4000 FOR 11=0 TO 127: READ SV(I1): NEXT 
4100 IC=74 

4200 IF SF=" M THEN GOSUB 8000: GOTO 4200 
4300 IE=0: ST=SF+STRING$(5," ")+DATE$+" AT "+TIMES 
4400 RETURN 
4500 ' SKIP3 

4600 REM ******************** 

4700 REM * PROCESS RAM FILE * 

4800 REM ******************** 

4900 A1 =63930 
5000 AD=0 
5100 I£=0 

5200 IF IE=0 THEN GOSUB 6100: GOTO 5200 

5300 IF AD=0 THEN PRINT TAB(5) ;''***** FILE NOT FOUND *****” : 
RETURN 
5400 IE=0 

5500 IF IE=0 THEN GOSUB 10400: GOTO 5500 
5600 RETURN 
5700 1 SKIP3 

5800 REM ************************** 

5900 REM * LOCATE DIRECTORY ENTRY * 

6000 REM ************************** 

6100 IF A1 > 65525 THEN IE=1 : RETURN 
6200 II =PEEK (Al ) 

6300 A2=PEEK(Al+1)+PEEK(Al+2)*256 
6400 IF 11=0 AND A2=0 THEN IE=1 : RETURN 
6500 IF II <> 128 THEN Al=Al+11: RETURN 
6600 SG=" M 
6700 Al=Al+3 
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6800 FOR 11=1 TO 8 
6900 I2=PEEK(A1) 

7000 IF 12 <> 32 THEN SG=SG+CHR$(I2) 

7100 IF 11=6 THEN SG=SG+"." 

7200 A1=A1+1 
7300 NEXT 

7400 IF SG=SF THEN IE=1: AD=A2-1 
7500 RETURN 
7600 1 SKIP3 

7700 REM ******************** 

7800 REM * OBTAIN FILE SPEC * 

7900 REM ******************** 

8000 LINE INPUT "File Name: ";SF 

8100 IF SF="" OR LEN(SF) > 10 THEN SF="": GOSUB 29800: RETURN 
8200 SG="RAM" 

8300 II =INSTR (SF,": ") 

8400 IF II > 0 THEN SG=LEFT$(SF,I1-1 ) 

8500 IF SG="ram" THEN SG-"RAM" 

8600 IF SG="cas" THEN SG= M CAS" 

8700 IF SG <> "RAM" AND SG <> "CAS" THEN SF="": GOSUB 29800: 
RETURN 

8800 SK=LEFT$(SG,1) 

8900 I1=INSTR(SF,".") 

9000 IF 11=0 THEN SE="DO": RETURN 
9100 I2=LEN (SF)-II 

9200 IF 12 <> 2 THEN SF="": GOSUB 29800: RETURN 
9300 SE=RIGHT$(SF,2) 

9400 IF SE="do" THEN SE="DO" 

9500 IF SE="ba" THEN SE="BA" 

9600 IF SE="DO" OR SE="BA" THEN RETURN 
9700 SF="" 

9800 GOSUB 29800 
9900 RETURN 
10000 1 SKIP3 

10100 REM ****************************************** 

10200 REM * PROCESS ONE PROGRAM LINE ('BA 1 FORMAT) * 

10300 REM ****************************************** 

10400 GOSUB 12500 

10500 IF JL=0 AND JM=0 THEN IE=1: RETURN 

10600 JS=JL+JM*256-AD-4 

10700 GOSUB 12500 

10800 Al=JL+JM*256 

10900 S1=STR$(A1) 

11000 S1=RIGHT$(S1,LEN(S1)-1) 

11100 IF LEN(SI) < 5 THEN S1=" "+S1 : GOTO 11100 

11200 IF JS=8 THEN GOSUB 13400 

11300 IF S1="" THEN RETURN 

11400 IF IL=0 OR IL > 53 THEN GOSUB 20400 

11500 LPRINT SI;" "; 

11600 SL="" 

11700 IN=0 
11800 IZ=0 

11900 IF IZ=0 THEN GOSUB 15500: GOTO 11900 
12000 RETURN 
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12100 'SKIP3 

12200 REM ************************************* 

12300 REM * GET 2-BYTE POINTER OR LINE NUMBER * 

12400 REM ************************************* 

12500 AD=AD+1 
12600 JL=PEEK(AD) 

12700 AD=AD+1 
12800 JM=PEEK(AD) 

12900 RETURN 
13000 ' SKIP3 

13100 REM *************************** 

13200 REM * CHECK FOR SKIP OR EJECT * 

13300 REM *************************** 

13400 IF PEEKCAD+1) <> 58 OR PEEKCAD+2) <> 142 OR PEEK (AD+3) <> 
255 THEN RETURN 
13500 SG="" 

13600 FOR Al=AD+4 TO AD+JS 
13700 SG=SG+CHR$ (PEEK (A1 ) ) 

13800 NEXT 

13900 IF SG="EJ ECT" THEN IL=54: GOSUB 20400: S1="": AD=AD+JS+1: 
RETURN 

14000 IF LEFTS (SG,4) <> "SKIP" THEN RETURN 

14100 I1=ASC (RIGHTS (SG,1 ) )-48 

14200 IF II < 1 OR II > 3 THEN RETURN 

14300 S1= ,,M 

14400 AD=AD+JS+1 

14500 IF IL+I1 > 54 THEN GOSUB 20400: RETURN 

14600 FOR 12=1 TO II 

14700 LPRINT 

14800 IL=IL+1 

14900 NEXT 

15000 RETURN 

15100 1 SKIP3 

15200 REM ******************** 

15300 REM * GET REST OF LINE * 

15400 REM ******************** 

15500 AD=AD+1 
15600 IV=PEEK (AD) 

15700 IF IV < 128 THEN GOSUB 16900: RETURN 

15800 IF IV=142 AND SL=":" THEN SL=SL+"REM": RETURN 

15900 IV=IV-128 

16000 IF IV=127 THEN SL=SV(IV): GOSUB 18200: RETURN 
16100 IF IV <> 17 THEN GOSUB 18200: SL=SV(IV) : GOSUB 18200: 
RETURN 

16200 IF SL=": :" THEN SL=":ELSE" ELSE SL="ELSE" 

16300 GOSUB 18200 
16400 RETURN 
16500 ' SKIP3 

16600 REM *************************** 

16700 REM * PRINT CURRENT CHARACTER * 

16800 REM *************************** 

16900 IF IV=0 THEN IZ=1 : GOSUB 18200: LPRINT: IL=IL+1 : RETURN 
17000 IF IV=10 THEN GOSUB 21500: RETURN 
17100 IF IV=58 THEN SL=SL+":" : RETURN 
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17200 60 SUB 18200 

17300 GOSUB 19400 

17400 IF IL > 53 THEN GOSUB 20400 

17500 LPRINT CHR$(IV); 

17600 IN=IN+1 
17700 RETURN 
17800 ' SKIP3 

17900 REM ****************************** 

18000 REM * PRINT STORED VALUE IN 'SL' * 

18100 REM ****************************** 

18200 IF Sl= ,,M THEN RETURN 
18300 I1=IC-IN 

18400 IF LEN (SL) < II THEN I1=LENCSL) 

18500 I2=LEN (SL)-II 

18600 IF II > 0 THEN LPRINT LEFT$(SL,I1 ); : IN=IN+I1 

18700 IF 12 > 0 THEN GOSUB 19400: LPRINT RIGHT$(SL.I2); : IN=I2 

18800 SL= ,,n 

18900 RETURN 

19000 ' SKIP3 

19100 REM ********************** 

19200 REM * TEST LINE OVERFLOW * 

19300 REM ********************** 

19400 IF IN < IC THEN RETURN 

19500 LPRINT 

19600 LPRINT TAB (6); 

19700 IN=0 
19800 IL=IL+1 
19900 RETURN 
20000 'SKIPS 

20100 REM **************************************** 

20200 REM * TEST PAGE OVERFLOW AND PRINT HEADING * 

20300 REM **************************************** 

20400 IF IL > 0 THEN LPRINT CHR$(12); 

20500 IP=IP+1 

20600 LPRINT TAB(10);ST;TAB(73);"PAGE 

20700 LPRINT USING "##";IP 

20800 LPRINT 

20900 IL=2 

21000 RETURN 

21100 ' SKIP3 

21200 REM ************************************ 

21300 REM * HANDLE EMBEDDED CARRIAGE RETURNS * 

21400 REM ************************************ 

21500 GOSUB 18200 
21600 IN=IC 
21700 GOSUB 19400 
21800 RETURN 
21900 'EJECT 

22000 REM ********************** 

22100 REM * PROCESS ASCII FILE * 

22200 REM ********************** 

22300 IF SK="R" THEN ON ERROR GOTO 23900 
22400 OPEN SF FOR INPUT AS 1 
22500 ON ERROR GOTO 0 
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22600 IF IE=0 THEN 60SUB 25300: GOTO 22600 
22700 CLOSE 

22800 IF SK="R" THEN RETURN 
22900 BEEP 

23000 INPUT "Set Recorder to REWIND, Press <ENTER>";SG 
23100 MOTOR ON 

23200 INPUT "Press <ENTER> when rewind complete";SG 
23300 MOTOR OFF 
23400 RETURN 
23500 'SKIP3 

23600 REM *********************************************** 

23700 REM * IF ASCII FILE DOESN'T EXIST, TRY '.BA' FILE * 

23800 REM *********************************************** 

23900 IF ERR=52 THEN GOSUB 24500: RESUME NEXT 
24000 ON ERROR GOTO 0 
24100 RESUME 

24200 REM ********************** 

24300 REM * PROCESS '.BA' FILE * 

24400 REM ********************** 

24500 SE="BA" 

24600 IF RIGHTS (SF,2)="D0" THEN MID$ (SF,LEN (SF)-2,2)="BA" ELSE 
SF=SF+".BA" 

24700 GOSUB 4900 
24800 RETURN 
24900 ' SKIP3 

25000 REM ************************** 

25100 REM * PROCESS ONE ASCII LINE * 

25200 REM ************************** 

25300 IF EOF (1 ) THEN IE=1 : RETURN 
25400 LINE INPUT #1,SL 
25500 IF SL="" THEN RETURN 
25600 IA=INSTR(SL," ") 

25700 IF IA < 6 THEN SG=STRING$ (6-IA," ") +LEFT$(SL,IA-1 ) ELSE 
SG=LEFT$(SL,6) 

25800 IR=LEN(SL)-IA 
25900 IA=IA+1 

26000 IF IR=6 THEN GOSUB 27000 

26100 IF IR <0 THEN RETURN 

26200 IF IL=0 OR IL > 53 THEN GOSUB 20400 

26300 LPRINT SG; 

26400 IF IR > 0 THEN GOSUB 28700: GOTO 26400 
26500 RETURN 
26600 ' SKIP3 

26700 REM *************************** 

26800 REM * TEST FOR SKIP AND EJECT * 

26900 REM *************************** 

27000 IF MID$(SL,IA,1 ) <> "'" THEN RETURN 
27100 Sl=RIGHT$(SL,5) 

27200 IF Si ="EJ ECT" THEN IL=54: GOSUB 20400: IR=-1 : RETURN 

27300 IF LEFTS (Si ,4) <> "SKIP" THEN RETURN 

27400 II =ASC (RIGHTS (Si ,1 ) )-48 

27500 IF II < 1 OR II > 3 THEN RETURN 

27600 IR=-1 

27700 IF IL+I1 > 54 THEN GOSUB 20400: RETURN 
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27800 FOR 12=1 TO II 
27900 LPRINT 
28000 IL=IL+1 
28100 NEXT 
28200 RETURN 
28300 1 SKIP3 

28400 REM ************************************ 
28500 REM * PRINT NEXT 75 CHARACTERS IN LINE * 
28600 REM ************************************ 
28700 IF IL > 53 THEN GOSUB 20400 
28800 IF IR > IC THEN IB=IC ELSE IB=IR 
28900 LPRINT TAB (6);MID$(SL,IA,IB) 

29000 IA=IA+IB 
29100 IR=IR-IB 
29200 IL=IL+1 
29300 RETURN 
29400 ' SKIP3 

29500 REM ************************* 

29600 REM * DISPLAY ERROR MESSAGE * 

29700 REM ************************* 

29800 PRINT TAB (5 );"***** ERROR - RETRY *****" 
29900 RETURN 
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The “Compress” program enables you to make more efficient use of your Model 100’s limited 
RAM capacity by automatically eliminating all blank spaces and remark statements (or both) 
from a BASIC program that has been saved in ASCII format as a text (.DO) file. Furthermore, 
the program will combine program lines, freeing up additional RAM. Combined lines may be up 
to 255 characters in length. 


Using the Program 

When you run the program, you will be asked for the name of the text (.DO) file to compress. 
[Before you can compress a BASIC program, you must save it as a text (.DO) file.] Type the file 
name without the extension .DO and press ENTER. You then have the option of saving the com- 
pressed file on cassette tape or in RAM. Type C for cassette or R for RAM and press ENTER. A 
menu will be displayed that allows you 

• To remove blanks 

• To remove remarks 

• To combine lines 

• To perform any combination of the three. 

Once you have made your selection, the program will then begin compressing the file. If you 
are compressing a long program, it may take a while to complete. For example, running the 
Compress program on itself takes about 30 minutes and reduces a 14K file to 8K. 

When the compression is complete, you will see the name of the file containing the compressed 
version of the program displayed on the Model 100’s screen. On examining the Main Menu, you, 
will see three versions of the BASIC program: 

• The original BASIC (.BA) program 

• A .DO version of the non-compressed program (ASCII format) 

• A .DO version of the compressed program. 

You will then have to load the compressed program into BASIC and save it as a .BA file to 
execute the program. At that time, you will probably want to delete the .DO files. 

Assuming that you have a 32K Model 100, you will have at most a little over 29K of free 
memory. The Compress program requires about 14K, leaving you 15K of RAM. 

As an example, suppose you want to compress a program that is 5K in size. Since the program 
must first be stored as a .DO file, another 5K is used for the .DO version, leaving you 5K. When 
you then run the Compress program, the .DO version of the compressed program will be created. 
You must then save the compressed .DO file as an executable (.BA) file. By this time, you will have 
used up all available RAM. To avoid running out of memory space, you can save the compressed 
version of the program on cassette. 
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Requirements 

This program requires about 14K bytes of RAM; however, in its compressed form it requires 
only 8K. In addition, you will need RAM space for the compressed version of the file. In order to 
save compressed files on cassette tape, you will need a cassette recorder. 


Listing 

10 REM * *** BASIC Compression Program *** 

20 REM 1 *** Copyright 1983 by General Business Systems, Inc. *** 

600 CLS: CLEAR 1000: MAXFILES=2 

700 DEFSTR R-S: DEFINT I-N: DEFSNG A-H 

800 Al =0: LL=0: IS=0: IC=0: ID=0: IX=0: IY=0: IZ=0: LU=0: IP=0: 
LH=0: 11=0: J1=0: JC=0: JH=0: JL=0: KB=0: KE=0: KF=0: KL=0: 
KN=0: KR=0: KW=0: LC=0: ML=0 

900 RC="": SA= ,M ': SB="": SC="": SD="": SG="": SJ="": SN="": 

S0="": SQ=CHR$(34) 

1000 DIM LN(100),NL(100),NH(100),IR(2),SV(6) 

1100 DATA ELS E,G0SUB, GOTO, RESUME, RESTORE, RUN, THEN 
1200 FOR 11=0 TO 6 
1300 READ SV(I1) 

1400 NEXT 
1500 GOSUB 2300 

1600 IF IS <> 1 THEN GOSUB 29300 

1700 IF IY=0 THEN PRINT "NO CHANGE TO PROGRAM" 

1800 MENU 
1900 ' SKIP3 

2000 REM ***■**'*★**★**"*★★*** 

2100 REM * INITIALIZATION * 

2200 REM ****************** 

2300 PRINTS 88, "Compress a BASIC Program": PRINTS 200, "Press any 
key to continue...": A$=INKEY$: IF A$="" THEN 2300 
2600 PRINT 

2700 IS=0: ML=0: IY=0 
2800 SJ="" 

2900 IF SJ="" THEN GOSUB 3800: GOTO 2900 
3000 IF IS >0 THEN RETURN 
3100 11=0 

3200 IF 11=0 THEN GOSUB 9600: GOTO 3200 
3300 RETURN 
3400 'SKIP3 

3500 REM *************************** 

3600 REM * GET FILE NAMES AND OPEN * 

3700 REM *************************** 

3800 CLS: FILES: PRINT: PRINT "What .DO file do you want to 
compress?": INPUT SJ 
3900 IF SJ="" THEN GOSUB 47900: RETURN 
4000 I1=INSTR<SJ,":") 

4100 IF II > 0 THEN SD=LEFT$(SJ,I1-1 ) ELSE SD="RAM" 

4200 IF SD="cas" THEN SD="CAS" 

4300 IF SD="ram" THEN SD="RAM" 

4400 IF SD <> "CAS" AND SD <> "RAM" THEN GOSUB 47900: SJ="": 
RETURN 
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4500 IF SD="CAS" THEN SD="RAM": ST="C" ELSE SD="": ST="X" 

4600 IF SD="" THEN GOSUB 12600: GOTO 4600 
4700 SN=RIGHT$(SJ,LEN(SJ)-I1) 

4800 so=sd + + "caa" 

4900 IF LEN(SN) > 2 THEN S0= SO + LEFT$(SN,3) ELSE S0= SO+SN 

5000 PRINT: PRINT"The name of the compressed file is ": PRINT SO; 

5100 IF SD="RAM" THEN PRINT ,, .DO": GOSUB 6000 ELSE PRINT 

5200 IF IS >0 THEN RETURN 

5300 OPEN SJ FOR INPUT AS 1 

5400 OPEN SO FOR OUTPUT AS 2 

5500 RETURN 

5600 * SKIP3 

5700 REM ***************************** 

5800 REM * TEST EXISTING OUTPUT FILE * 

5900 REM ***************************** 

6000 ON ERROR GOTO 7800 
6100 IS=1 

6200 OPEN SO FOR INPUT AS 1 
6300 ON ERROR GOTO 0 
6400 IF IS=0 THEN RETURN 
6500 CLOSE 
6600 PRINT 

6700 PRINT "File ";S0;" already exists." 

6800 SG="" 

6900 IF SG="" THEN GOSUB 8500: GOTO 6900 
7000 IF SG="NO" THEN RETURN 
7100 IS=0 

7200 KILL SO + ".DO" 

7300 RETURN 
7400 1 SKIP3 

7500 REM *************************** 

7600 REM * NON-EXISTENT FILE IS OK * 

7700 REM *************************** 

7800 IF ERR=52 THEN IS=0: RESUME NEXT 
7900 ON ERROR GOTO 0 
8000 RESUME 
8100 ' SKIP3 

8200 REM ****************** 

8300 REM * KILL OLD FILE? * 

8400 REM ****************** 

8500 INPUT "Do you want to kill it";SG 
8600 IF SG="yes" THEN SG="YES": RETURN 
8700 IF SG="no" THEN SG="NO": RETURN 
8800 IF SG="YES" OR SG="NO" THEN RETURN 
8900 SG="" 

9000 GOSUB 47900 
9100 RETURN 
9200 'SKIP3 

9300 REM *************** 

9400 REM * GET OPTIONS * 

9500 REM *************** 

9600 PRINT 

9700 PRINT "Do you want to:" 

9800 PRINT: PRINT TAB (3); "<1> Remove Blanks";TAB(24); M <5> 1 and 
3" 
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9900 PRINT TAB (3); "<2> Remove Remarks";TAB(24); "<6> 2 and 3" 
10000 PRINT TAB (3); "<3> Combine Lines";TAB (24); "<7> 1- 2, and 
3" 

10100 PRINT TAB (3); "<4> 1 and 2" 

10200 INPUT II 

10300 IF II < 1 OR II > 7 THEN 11=0: GOSUB 47900: RETURN 

10400 IR (0)=0: IR(1)=0: IR(2)=0 

10500 IF 11=1 THEN IR(0)=1: RETURN 

10600 IF 11=2 THEN IR(1)=1: GOSUB 13400: RETURN 

10700 IF 11=4 THEN IR (0)=1 : IR(1)=1: GOSUB 13400: RETURN 

10800 IR (2)=1 

10900 IF 11=5 OR 11=7 THEN IR(0)=1 
11000 IF 11=6 OR I 1=7 THEN IR(1)=1 
11100 ML=0 

11200 IF ML=0 THEN GOSUB 11800: GOTO 11200 
11300 RETURN 
11400 1 SKIP3 

11500 REM ***************** 

11600 REM * GET LINE SIZE * 

11700 REM ***************** 

11800 PRINT "What is the maximum Line Length": INPUT "(1 to 
255) ";ML 

11900 IF ML < 1 OR ML > 255 THEN ML=0: GOSUB 47900: RETURN 
12000 GOSUB 13400 
12100 RETURN 
12200 1 SKIP3 

12300 REM ********************* 

12400 REM * GET OUTPUT DEVICE * 

12500 REM ********************* 

12600 PRINT:PRINT "Do you want store compressed f i Le on": INPUT 
"<C>assette or in <R>am";SD 

12700 IF SD="C" OR SD="c" THEN SD="CAS": ST="T": RETURN 
12800 IF SD="R" OR SD="r" THEN SD="RAM": ST="R" ELSE GOSUB 47900: 
SD="" 

12900 RETURN 
13000 'EJECT 

13100 REM ********************************************** 

13200 REM * CONSTRUCT TABLE OF REFERENCED LINE NUMBERS * 

13300 REM ********************************************** 

13400 IS=0: LL=0: LU=0: LH=0 

13500 IF IS=0 THEN GOSUB 14100: GOTO 13500 

13600 RETURN 

13700 'SKIP3 

13800 REM ****************** 

13900 REM * PROCESS A LINE * 

14000 REM ****************** 

14100 IF EOF (1 ) THEN IS=2: RETURN 
14200 LINE INPUT #1,SB 
14300 IF SB="" THEN RETURN 
14400 KR=1 

14500 IF KR > 0 THEN GOSUB 16400: GOTO 14500 
14600 KR=1 

14700 IF KR > 0 THEN GOSUB 17200: GOTO 14700 
14800 KR=INSTR (SB, "REM") 
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14900 I1=INSTR(SB/"") 

15000 IF KR=0 THEN KR=I1 
15100 IF II > 0 AND II < KR THEN KR=I1 
15200 IF KR=0 THEN KR=LEN(S6)+1 
15300 SA=LEFT$ (SB 7 KR-1 ) 

15400 FOR 11=0 TO 6 
15500 IY=0 
15600 KW=1 

15700 IF IY=0 THEN KW=INSTR (KW,SA 7 SV(I1 ) ) : GOSUB 18800: GOTO 
15700 

15800 NEXT 

15900 RETURN 
16000 'SKIP3 

16100 REM ************************ 

16200 REM * REMOVE QUOTED STRING * 

16300 REM ************************ 

16400 SG=SQ 

16500 KR=INSTR(SB,SQ) 

16600 IF KR > 0 THEN GOSUB 18000 
16700 RETURN 
16800 ' SKIP3 

16900 REM ************************* 

17000 REM * REMOVE DATA STATEMENT * 

17100 REM ************************* 

17200 SG=":" 

17300 KR=INSTR(SB 7 m DATA") 

17400 IF KR > 0 THEN GOSUB 18000 
17500 RETURN 
17600 1 SKIP3 

17700 REM ************************************** 

17800 REM * SET CHARACTERS TO BLANKS UNTIL * 

17850 REM * END OF LINE OR CHAR IN SG IS FOUND * 

17900 REM ************************************** 

18000 IF KR=LEN (SB) THEN I1=KR ELSE II =INSTR (KR+1 ,SB,SG) 
18100 IF 11=0 THEN I1=LEN(SB) 

18200 MID$(SB / KR)=STRING$(I1-KR+1 / " ") 

18300 RETURN 
18400 'SKIP3 

*18500 REM *********************************************** 

18600 REM * PROCESS ONE OCCURRENCE OF KEYWORD IN SV(I1) * 

18700 REM *********************************************** 

18800 IF KW=0 THEN IY=1 : RETURN 

18900 GOSUB 19600 

19000 IF KW >= LEN(SA) THEN IY=1 

19100 RETURN 

19200 1 SKIP3 

19300 REM ********************** 

19400 REM * LEGITIMATE KEYWORD * 

19500 REM ********************** 

19600 KW=KW + LEN (SV <11 > ) — 1 
19700 IP=0 

19800 IF IP=0 THEN GOSUB 21100: GOTO 19800 
19900 IF IP < 48 OR IP > 57 THEN RETURN 
20000 A1 =0 
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20100 IZ=0 

20200 IF IZ=0 THEN GOSUB 21900: GOTO 20200 

20300 IF SV(I1) <> "GOTO" AND SV(I1) <> "GOSUB” THEN RETURN 

20400 IX=0 

20500 IF IX=0 THEN GOSUB 22800: GOTO 20500 
20600 RETURN 
20700 1 SKIP3 

20800 REM *************************************** 

20900 REM * LOCATE NEXT NON-BLANK CHARACTER AND * 

20950 REM * RETURN VALUE IN ASCII * 

21000 REM *************************************** 

21100 IF KW=LEN (SA) THEN IP=1 : RETURN 

21200 KW=KW+1 

21300 IF MID$(SA,KW,1) <> " " THEN IP=ASC <MID$ (SA,KW,1 ) ) 

21400 RETURN 
21500 1 SKIP3 

21600 REM *************************************** 

21700 REM * CONSTRUCT LINE NO. AND ADD TO TABLE * 

21800 REM *************************************** 

21900 A1=A1 ★10+IP-48 
22000 IP=0 

22100 IF IP=0 THEN GOSUB 21100: GOTO 22100 
22200 IF IP < 48 OR IP > 57 THEN IZ=1 : GOSUB 24000 
22300 RETURN 
22400 ’ SKIP3 

22500 REM *************************************************** 
22600 REM * CHECK FOR MULTIPLE NUMBERS, SEPARATED BY COMMAS * 
22700 REM *************************************************** 
22800 IF MID$(SA,KW,1) <> THEN IX=1 : RETURN 
22900 IP=0 

23000 IF IP=0 THEN GOSUB 21100: GOTO 23000 
23100 IF IP < 48 OR IP > 57 THEN IX=1 : RETURN 
23200 Al=0 
23300 IZ=Q 

23400 IF IZ=0 THEN GOSUB 21900: GOTO 23400 
23500 RETURN 
23600 ’ SKIP3 

23700 REM ********************** 

23800 REM * BUILD CHAINED LIST * 

23900 REM ********************** 

24000 IF A1 > 32767 THEN LC=Al-65536 ELSE LC=A1 

24100 GOSUB 24800 

24200 IF J 1 =1 THEN GOSUB 28000 

24300 RETURN 

24400 1 SKIP3 

24500 REM *************** 

24600 REM * SEARCH LIST * 

24700 REM *************** 

24800 J1=0: JC=LL: JL=0: JH=0 

24900 IF LH > 0 AND LC > LN(LH) THEN J 1 =1 : JL=LH: RETURN 
25000 IF J1=0 THEN GOSUB 25600: GOTO 25000 
25100 RETURN 
25200 1 SKIP3 
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25300 REM ********************** 

25400 REM * LOOK AT NEXT ENTRY * 

25500 REM ********************** 

25600 IF JC=0 THEN J1=1: RETURN 

25700 IF LC=LN(JC) THEN J 1 =2 : RETURN 

25800 IF LC < LN(JC) THEN GOSUB 26400 ELSE GOSUB 27200 

25900 RETURN 

26000 ' SKIP3 

26100 REM ************************************ 

26200 REM * LINE NO. LESS THAN CURRENT ENTRY * 

26300 REM ************************************ 

26400 JH=JC 

26500 IF JL=NL (JC) THEN J 1 =1 : RETURN 
26600 JC=NL(JC) 

26700 RETURN 
26800 'SKIP3 

26900 REM *************************************** 

27000 REM * LINE NO. GREATER THAN CURRENT ENTRY * 

27100 REM *************************************** 

27200 JL=J C 

27300 IF JH=NH (JC) THEN J 1 =1 ; RETURN 
27400 JC=NH (JC) 

27500 RETURN 
27600 'SKIP3 

27700 REM ******************** 

27800 REM * ADD NEW LINE NO. * 

27900 REM ******************** 

28000 IF LU=1Q0 THEN PRINT "TOO MANY LINE NUMBER REFERENCES": 
IS=1 : RETURN 
28100 IS=0 
28200 LU=LU+1 
28300 LN (LU)=LC 
28400 NL(LU)=JL 
28500 NH(LU)=JH 

28600 IF JL=0 THEN LL=LU ELSE NH(JL)=LU 
28700 IF JH=0 THEN LH=LU ELSE NL(JH)=LU 
28800 RETURN 
28900 'EJECT 

29000 REM ***************************** 

29100 REM * BEGIN COMPRESSION PROCESS * 

29200 REM ***************************** 

29300 IS=0: LU=0 
29400 CLOSE 1 

29500 IF ST="C" THEN GOSUB 30800: GOSUB 31700 
29600 OPEN SJ FOR INPUT AS 1 
29700 SC="" 

29800 KL=0 

29900 IF IS=0 THEN GOSUB 32300: GOTO 29900 
30000 GOSUB 45900 
30100 CLOSE 

30200 IF ST <> "R" THEN GOSUB 30800 
30300 RETURN 
30400 'SKIP3 
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30500 REM ************************* 

30600 REM * REWIND CASSETTE INPUT * 

30700 REM ************************* 

30800 BEEP: INPUT "SET RECORDER TO ' REWIND' , PRESS ENTER";SG 
30900 MOTOR ON 

31000 INPUT "PRESS ENTER WHEN REWIND DONE";SG 
31100 MOTOR OFF 
31200 RETURN 
31300 ' SKIP3 

31400 REM ******************************** 

31500 REM * SET UP CASSETTE FOR 2ND PASS * 

31600 REM ******************************** 

31700 INPUT "SET RECORDER TO 'PLAY'; PRESS ENTER";SG 
31800 RETURN 
31900 ' SKIP3 

32000 REM ****************** 

32100 REM * PROCESS A LINE * 

32200 REM ****************** 

32300 IF EOF Cl) THEN IS=2: RETURN 
32400 LINE INPUT #1,SB 
32500 IF SB="" THEN RETURN 
32600 SA="" 

32700 IC=0 
32800 KL=0 
32900 KN=Q 
33000 Al =0 
33100 IZ=0 

33200 IF IZ=0 THEN GOSUB 35300: GOTO 33200 

33300 IF Al > 32767 THEN LC=A1 -65536 ELSE LC=A1 

33400 GOSUB 24800 

33500 IF J 1 =2 THEN KL=1 

33600 KB=ID 

33700 SA=SA + " " 

33800 IF IC < LENCSB) AND MID$ (SB,IC+1 ,1 )=" " THEN IC=IC+1 

33900 KF=1 

34000 GOSUB 36400 

34100 IZ=0 

34200 IF IZ=0 THEN GOSUB 37700: GOTO 34200 

34300 IF SA="" THEN IY=1 : RETURN 

34400 IF KF=1 THEN I1=1NSTR(KB / SB / "IF") ELSE 11=0 

34500 IF KF=1 AND II > 0 AND II < KR THEN KN=1 

34600 GOSUB 44700 

34700 IF KN=1 THEN GOSUB 45900 

34800 RETURN 

34900 ' SKIP3 

35000 REM ******************************************* 

35100 REM * MOVE LINE NUMBER TO REVISED SOURCE LINE * 

35200 REM ******************************************* 

35300 IF IC=LEN(SB) THEN IZ=1: RETURN 
35400 IC=IC+1 

35500 IP=ASC(MID$(SB,IC,1)) 

35600 IF IP < 48 OR IP > 57 THEN IC=IC-1 : ID=IC: IZ=1 : RETURN 
35700 Al=Al*10+IP-48 
35800 SA=SA+CHR$(IP) 



Model 100 Companion 


35900 RETURN 
36000 1 SKIP3 

36100 REM ************************************** 

36200 REM * GET LOCATION OF FIRST SPECIAL ITEM * 

36300 REM ************************************** 

36400 IF KB > LEN(SB) THEN KR=KB: RETURN 
36500 SE="REM" 

36600 KR=INSTR(KB,SB,SE) 

36700 I1=INSTR (KB / SB," ,n ) 

36800 IF KR=0 OR II > 0 AND II < KR THEN KR=I1: SE='"" 
36900 I1=INSTR (KB, SB, "DATA”) 

37000 IF KR=0 OR II > 0 AND II < KR THEN KR=I1 : SE="DATA" 
37100 IF KR=0 THEN KR=LEN(SB)+1 
37200 RETURN 
37300 ' SKIP3 

37400 REM ********************************************** 

37500 REM * MOVE NEXT CHARACTER TO REVISED SOURCE LINE * 

37600 REM ********************************************** 

37700 IF IC=LEN (SB) THEN IZ=1 : RETURN 

37800 IC=IC+1 

37900 RC=MID$(SB,IC,1) 

38000 IF RC=" " AND IR(0)=1 THEN IY=1 : RETURN 
38100 IF RC=SQ THEN GOSUB 38900: RETURN 
38200 IF IC=KR THEN GOSUB 41000: RETURN 
38300 SA=SA+RC 
38400 RETURN 
38500 1 SKIP3 

38600 REM ****************************** 

38700 REM * BEGINNING OF QUOTED STRING * 

38800 REM ****************************** 

38900 I1=INSTR(KB,SB,"IF") 

39000 IF II > 0 AND II < IC THEN KN=1 : KF=0 
39100 SA=SA+RC 
39200 IX=0 

39300 IF IX=0 THEN GOSUB 40100: GOTO 39300 

39400 KB=IC+1 

39500 GOSUB 36400 

39600 RETURN 

39700 ' SKIP3 

39800 REM **************************************** 

39900 REM * MOVE NEXT CHARACTER OF QUOTED STRING * 

40000 REM **************************************** 

40100 IF IC=LEN (SB) THEN IX=1 : RETURN 
40200 IC=IC+1 

40300 SA=SA + MID$(SB,IC,1) 

40400 IF MID$(SB,IC,1)=SQ THEN IX=1 
40500 RETURN 
40600 1 SKIP3 

40700 REM ***************************************** 

40800 REM * BEGINNING OF DATA STATEMENT OR REMARK * 

40900 REM ***************************************** 

41000 IF SE <> "DATA" THEN GOSUB 43500: RETURN 
41100 I1=INSTR(KB,SB,"IF") 

41200 IF II > 0 AND II < IC THEN KN=1 : KF=0 
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41300 SA=SA+RC 
41400 11=0 

41500 IF 11=0 THEN GOSUB 42300: GOTO 41500 

41600 KB=IC+1 

41700 GOSUB 36400 

41800 RETURN 

41900 ' SKIP3 

42000 REM ********************************** 

42100 REM * MOVE CHARS FROM DATA STATEMENT * 

42200 REM ********************************** 

42300 IF IC=LEN(S8) THEN 11=1: RETURN 
42400 IC=IC+1 

42500 SA=SA + MID$(SB,IC,1 ) 

42600 IF MID$(SB,IC,1 )=":" THEN 11=1: RETURN 
42700 IF MID$(SB,IC,1) <> SQ THEN RETURN 
42800 IX=0 

42900 IF IX=0 THEN GOSUB 40100: GOTO 42900 
43000 RETURN 
43100 1 SKIP3 

43200 REM *********************** 

43300 REM * BEGINNING OF REMARK * 

43400 REM *********************** 

43500 IZ=1 

43600 I1=LEN (SA)-ID 

43700 SG=STRING$ (II ," ") 

43800 I1=INSTR(ID,SA,SG) 

43900 IF IR Cl )=0 OR J 1 =2 AND II > 0 THEN SA=SA + 

RIGHTS (SB, LEN (S8)-IC+1): KN=1 : RETURN 
44000 IY=1 

44100 IF II > 0 OR LEN (SA)=ID THEN SA=" M 
44200 RETURN 
44300 1 SKIP3 

44400 REM ********************** 

44500 REM * ADD TO OUTPUT LINE * 

44600 REM ********************** 

44700 IF IR (2)=0 THEN SC=SA: KN=1 : RETURN 
44800 GOSUB 46700 
44900 IF SC="" THEN SC=SA: RETURN 
45000 II =LEN (SC) + LEN(SA)-ID-1 

45100 IF II > ML OR KL=1 THEN GOSUB 45900: SC=SA: RETURN 
45200 IY=1 

45300 SC=SC + + RIGHT$(SA,LEN(SA)-ID-1 ) 

45400 RETURN 
45500 1 SKIP3 

45600 REM ***************************** 

45700 REM * WRITE OUTPUT LINE, IF ANY * 

45800 REM ***************************** 

45900 IF SC <> "" THEN PRINT #2, SC 

46000 SC=' ,M 

46100 KL=0 

46200 RETURN 

46300 ' SKIP3 
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46400 REM ★■*★**★*★*★*★******** 

46500 REM * IS THIS A REMARK * 

46600 REM *********************** 

46700 KR=INSTR(SA/'REM") 

46800 II =INSTR (SA/"") 

46900 IF KR=0 THEN KR=I1 

47000 IF II > 0 AND II < KR THEN KR=I1 

47100 IF KR=0 THEN RETURN 

47200 I1=KR-ID-1 

47400 RETURN 

47600 REM *****★***★■*★★★★★★******** 

47700 REM ★ DISPLAY ERROR MESSAGE * 

47800 REM ************************** 

47900 PRINT TAB (5 );"***** ERROR - RETRY *****" 
48000 RETURN 
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Although the Model 100 puts a carriage return at the end of every line, it does not insert a line 
feed. Normally, if you are using a Radio Shack parallel printer, this is not a problem. The “Line 
Feeds for LPT” utility inserts line feeds to allow you to print out files with printers that do not 
append line feeds to carriage returns. 

Using the Program 

When you run this program, the display will go blank for a moment and you will return to the 
Model 100’s Main Menu. From this point on, whenever you send data to the Model 100’s printer 
port, a line feed will be added to all carriage returns. 

To disable the line feed function, run the program again, and you will see the message 

LPTLF in effect. Do you wish to disable it? 

Type a Y or y to disable the line feed function; type an N or n to leave it enabled. 


Requirements 

This program requires 500 bytes of RAM. 


Listing 

10 ■*** Line Feeds for LPT *** 

20 '*** Copyright 1983 by Michael Rubenstein 
30 P=PEEK<64228) + 256 * PEEKC64229) 

40 IF P=32755 THEN 80 

50 PRINT "LPTLF in effect. Do you wish to disable it? 

60 C$=INPUT$(1) : PRINT C$;: IF C$="Y" OR C$="y" THEN POKE 
64228,243: POKE 64229,127: CLEAR 256,MAXRAM 
70 MENU 

80 CLEAR 256,MAXRAM-11 : P=INT (HIMEM/256) : POKE 64229,P: POKE 
64228, HIMEM-256*P: P=HIMEM 
90 READ B: IF B >= 0 THEN POKE P,B: P=P+1 : GOTO 90 
100 MENU 

110 DATA 254,13,192,62,10,205,63,109,62, 13,201,-1 
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Sometimes you’ll find that your Model 100 has plenty of RAM space left for programs and 
data, but no entries available in the Main Menu to accommodate those programs or data. (Once the 
Main Menu is full, no further programs or data files can be created or stored.) 

The following “Invisible System” program allows you to get around this problem by making 
the five “built-in” programs (BASIC, TEXT, TELCOM, ADDRSS, and SCHEDL) invisible. This 
can give you as many as five additional blank entries in the Main Menu. 

A program that has been made “invisible” is still in memory even though its name does not 
appear in the Main Menu. You can still execute a program that has been made invisible by typing 
in its name and pressing ENTER. 


Using the Program 

When you start the program, you have a choice of making visible files invisible or invisible files 
visible (or you can simply quit). Depending on your choice, the five system file names will be 
displayed and you can type the number of the system program you want to select. 


Requirements 

This program requires 1.5K bytes of RAM. 


Listing 

10 '*** Invisible System Program *** 

20 '*** Copyright 1983 by R. Scott Truesdale *** 

30 ' 

40 RVS = CHR$(27) + "p": NV$= CHR$(27) + "q" 'Reverse and normal Video 

50 CLS: LINE (32,5) - (207,18), 1, BF 

60 PRINTS 47,RV$; "Invisible System Program"; NV$ 

70 LINE (29,2) -(21 0,21 ),1,B 

80 PRINTS 200, "Press any key to continue..." 

90 M$= INKEYS : IF M$= "" THEN 90 

100 CLS: PRINT " Would you like your programs to be:" 

110 PRINT " <I>nvisible," 

120 PRINT " <V>isible," 

130 PRINT " or <Q>uit" 

140 PRINT: PRINT" ";RV$;" Press <I>, <V>, or <Q> : NV$;""*- 

LINE (30,55) - (197,55), 1 
150 I$= INPUTS (1) 

160 IF I$="i" OR I$="I" THEN INV= 184: IN$= "IN" ELSE IF lS="v" 

OR I$="V" THEN INV = 176: IN$= "" ELSE IF IS= "q" OR I$="Q" 

THEN MENU ELSE GOTO 100 
170 'Inv variable is the poke value 

180 CLS: PRINT" ";RV$;" File Selection Menu NVS 
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190 PRINT: PRINT" <1> BASIC <4> Addrss" 

200 PRINT " <2> Text <5> Schedl" 

210 PRINT " <3> Telcom <q> to quit 

220 PRINT: PRINT " " RVS;" Which one would you like INS; 

"Visible?"; NV$; 

230 1$ = INPUTS (1) 

240 IF I$= "q" OR I$= "q" THEN 100 
250 IF I$= "1" THEN ADR= 63842: GOTO 320 

260 IF I$= "2" THEN ADR= 63853: GOTO 320 

270 IF I$= "3" THEN ADR= 63864: GOTO 320 

280 IF I$= "4" THEN ADR= 63875: GOTO 320 

290 IF I$= "5" THEN ADR= 63886: GOTO 320 

300 'ADR is the directory entry attribute byte away up in high 
memory 

310 GOTO 180 

320 POKE ADR,INV 'This line does the work! 

350 GOTO 100 
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The “Memory Dump” program allows you to view the contents of memory (RAM or ROM). It is 
useful for debugging programs or whenever you need to see the actual contents of memory. The 
program produces a screen display or printout (using the parallel printer port) of the data stored 
in memory. Memory addresses are given in both hexadecimal and decimal, and the data is repre- 
sented in hexadecimal or ASCII. 


Using the Program 


When you run the program, you will see a prompt asking you whether you want to send the 
memory dump to the screen or to the printer. Type LCD for the screen or LPT for the printer and 
press ENTER. Next, type the address at which you want to begin the memory dump and press 
ENTER. If you enter a hexadecimal address, it must be preceded by the letter H. 

After you have entered the starting address, the memory dump will be sent to the device that 
you selected. If you selected the LCD display, you will see the contents of memory displayed on the 
screen. After every eight lines, the display will pause; press ENTER or SPACE BAR to continue. 
During a pause, you also have the option of restarting the program (press R), returning to the 
Main Menu (press M), or exiting to BASIC (press Q). 

A typical memory dump will look like: 



The left-hand column represents the hexadecimal address of the first byte of each line; the 
decimal representation of this address appears in the next column. The eight bytes of data start- 
ing at the given memory location are displayed in the next four columns; each byte of data is 
displayed as two hexadecimal characters. The last column is the ASCII representation of the data 
in that row. Note that ASCII values above 127 (decimal) are used by the Model 100’s graphics 
characters (left blank in the previous figure). 
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Requirements 

This program requires about 4K bytes of RAM. If you want to make printouts of the memory 
dump, you will need a printer. Although this program is set up for a parallel printer, you can use 
a serial printer by modifying the program. 


Listing 

10 ' *** Memory Dump Program *** 

20 ' *** Written by Robert Curtis *** 

30 CLS: PRINTS 50, "Memory Dump Program" 

40 PRINTS 200, "Press any key to continue..." 

50 A$=INKEY$: IF A$="" THEN 50 

60 CLS: DEFSNG A-Z: IF MAXFILES < 1 THEN MAXFILES=1 : FM-1 
80 H $="01 23456789 ABCDEF" 

90 LINE INPUT "Output Device (LCD, LPT): ";P$: IF P$-"" THEN 
P$="LCD" 

100 IF LEN (P$)=3 THEN P$=P$+":" 

110 OPEN P$ FOR OUTPUT AS 1 

120 LINE INPUT "Start Address (If HEX, prefix H is required):" 

; i$; if LEFTS (I$,1 )="H" OR LEFT$(I$,1 )="H"THEN GOTO 320 ELSE 

I=VAL(I$) 

130 F=1 

135 PRINT "<Q>ui t <R>estart <M>enu" 

140 IF I > 65535 AND P$ <> "LCD:" THEN PRINT "End of RAM!": STOP 
150 IF I > 65535 THEN 1=0 

160 A=PEEK (I) _ , v 

170 IF J=0 THEN DD=I: FOR 11=3 TO 0 STEP-1: D=INT(DD/(16 II)): 
DD=DD-D*16‘'II : D$=D$+MID$ (H$,D+1 ,1 ) : NEXT II 
180 IF A > 31 AND A <> 127 THEN C$=C$ + CHR$(A) ELSE C$=C$ + 

190 B$=B$ + MID$ (H$,A/1 6+1 ,1 ) + MID$ (H$, AM0D16+1 ,1 ) : IF F=2 THEN 
B$=B$+" ": F=0 
200 1=1+1: J=J+1: F=F+1 

210 IF J=8 AND K <> 7 THEN C$=C$ + CHR$(13) + CHR$(10) 

220 IF J=8 THEN J=0: PRINTS, D$;" "; : PRINT#1 , USING"#####"; 1-8; 

: PRINT #1 ," ";B$;C$; : B$="": C$="": D$="": K=K+1 
230 IF K=8 THEN K=0 ELSE GOTO 140 

240 IF P$ <> "LCD:" THEN Z$=INKEY$: IF Z$=""THEN GOTO 290 ELSE 
260 ELSE 250 

250 Z$=INKEY$: IF Z$="" THEN 250 

260 IF Z$="Q" OR Z$="Q" THEN CLOSE 1: IF FM=1 THEN MAXFILES=0: 
END ELSE END 

270 IF Z$="R" OR Z$="R" THEN 120 

280 IF Z$="M" OR Z$="M" THEN CLOSE 1: IF FM=1 THEN MAXFILES=0: 
MENU ELSE MENU 

290 F=1 : PRINT#1,CHR$(13) + CHR$(10) 

300 GOTO 140 
310 END 
320 D$=I$ 

330 D$=RIGHT$(D$,LEN(D$)-1 ) : IF LEN(D$)=0 THEN D=0: GOTO 410 
340 FOR 1=1 TO LEN (D$) : IF ASC(MID$(D$,I,D) > 96 THEN 
MID$(D$,I,1)=CHR$(ASC(MID$(D$,I,1))-32) 

350 NEXT I 
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360 FOR 1=1 TO LEN (D$) : IF ASC (MID$(D$,I,1 ) ) < 48 OR 
ASC(MID$(D$,I,D) > 70 THEN 120 
370 NEXT I 

380 FORI=1 TO LEN (D$) : FOR J=1 TO 16 

390 IF MID$(H$,J,1)=MID$(D$ y> I / 1)THEN D=D+(J-1 ) *16" (LEN CDS) -I) 
400 NEXT J: NEXT I 

410 PRINT D : I=D: D$="": J=0: K=0: GOTO 130 
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Download LCD Disabler 


Even though the Model 100 has the ability to transfer information via the RS-232C (COM) port, 
it cannot download text (.DO) files as quickly as the Model 100 is capable of transferring them. 
The reason is simple: all information coming into the RS-232C port using the TELCOM program 
is first displayed on the LCD (display) before being stored into RAM. However, the LCD display is 
not capable of displaying data at high speeds. Consequently, you may be downloading at 1200 
baud, but the LCD display slows down the transfer to a speed that is less than the true baud rate. 

The “Download LCD Disabler” program allows you to download files while effectively dis- 
abling the Model 100’s LCD display so that the data goes directly into RAM at the specified baud 
rate. 


Using the Program 

When you first run the program, it asks you for the name of the text (.DO) file you want to store 
the downloaded data in. Type in the name of a file that is not being used. Next, you’ll be asked for 
the communication parameters. These parameters must conform to the parameters used in the 
built-in TELCOM program. For instance, 571 IE specifies 1200 baud, a word length of 7, ignore 
parity, 1 stop bit, and enable XON/XOFF. 

When you’re ready to start the file transfer, press ENTER. Once the transfer begins, the mes- 
sage WAIT will flash in the lower left corner of the screen. When the transfer is complete, you will 
see a message indicating the number of bytes of data that were transferred. 

If the file you are transferring does not contain an EOF (End-of-File) character, the Model 100 
will “sit and wait” even though the transfer is complete. In this case, press BREAK to return to the 
Model 100’s Main Menu. 

Requirements 

This program requires less than 600 bytes of RAM. 


Listing 

10 1 *** Download LCD Disabler *** 

20 ' *** Written by Robert. J. Sayre *** 
25 MAXFILES=4 
30 CLEAR 400 
40 C0UNT=0: CLS 

50 PRINTS) 80, "Name of Model 100 file"; 
60 INPUT FN$ 

65 IF FN$="" THEN GOTO 60 

70 OPEN FN$ FOR OUTPUT AS 1 

80 PRINTS) 120, "What COM parameters"; 

90 INPUT CMS 

95 IF CM$="" THEN GOTO 90 
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100 OPEN "COM:" + CMS FOR INPUT AS 2 

110 PRINTS 200/'Press <ENTER> when ready..."; 

120 LINE INPUT AS 
130 CLS 

140 IF EOF (2) THEN PRINT COUNT; " Bytes recei ved": END 
150 COUNT =COUNT + 1 

160 IF (COUNT MOD 50)=0 THEN PRINTS 280,CHR$(27);"q";"Wait"; 
170 IF (COUNT MOD 50)=25 THEN PRINTS 280,CHR$(27);"p";"Wait"; 
180 A$=INPUT$(1,2) 

190 PRINT#1,A$; 

200 GOTO 140 
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Appendix A 

Downloading Programs From CompuServe 


Similar versions of many of the programs in this book can be downloaded into your Model 100 
without your having to type them in. To do this, you will need the Model 100’s TELCOM program, 
a Model 100 Modem Cable, a telephone, and a subscription to the CompuServe Information Service. 

If you’re not familiar with CompuServe, you can find out more about it in the Model 100 Book: 
A Guide to Portable Computing (Osborne/McGraw-Hill). Additional information, including regis- 
tration forms and phone numbers, can be found in the Radio Shack Model 100 Modem Cable 
package. 


Making the CompuServe Connection 

To download programs from CompuServe, connect your Model 100 to a telephone line. To do 
this, plug the round end of the modem cable into the PHONE connector on the back of the Model 
100. Disconnect the phone cable from the phone and plug the silver wire of the modem cable into 
the phone. Finally, connect the beige cable to the phone line from the wall, as shown in Figure 
A-l. 

When all connections are made, turn on the Model 100, move the Main Menu cursor to TEL- 
COM and press ENTER. The communication status (STAT) should be M7I1E. If it is not, press F3, 
type M7I1E and press ENTER. You should also be sure that the switches on the left side of the 
computer are set to DIR and ORIG. 

Once the communication parameters are set, press F2 to dial the phone number. When the 
CALL prompt appears, type in your local CompuServe number followed by the symbols <> and 
press ENTER. For instance, type 55512340 and press ENTER. As the number is dialed, the 
individual digits will be displayed on the screen. When CompuServe “answers,” you’ll hear a buzz, 



Phone Jack 
To Wall 


Figure A-l. Connecting a Model 100 directly to the phone line 
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and a blinking cursor will appear to the right of the last character dialed. Press ENTER at this 
time. 

You’ll first be asked for a host name. Type CIS and press ENTER. Next you’ll be asked for your 
user ID. Type in the number assigned to you by CompuServe. For instance, type 77777,777 and 
press ENTER. Finally, you’ll be asked for your password. Type in the password assigned to you by 
CompuServe. This name will not be displayed on the screen as you type, so be sure you enter it 
correctly. When you press ENTER, you’ll either be admitted to CompuServe or told that you 
entered an invalid log-on sequence. If the latter occurs, repeat the procedure. 


Getting to the Model 100 Programs 

Once on CompuServe, you’ll be presented with introductory messages and the first menu. At 
the bottom of the menu will be an exclamation mark (!) followed by a blinking cursor. This is the 
CompuServe prompt, and it means that the service is waiting for you to type something. To get to 
the Model 100 programs, you’ll need to go to “page” 154 in the personal computer section by typing 
GO PCS-154 and pressing ENTER. 

The Model 100 SIG (short for Special Interest Group) heading will then appear. The first time 
you access SIG, you’ll be asked a few questions, including your name. After that, the SIG will 
know who you are when you log on. 

When the SIG’s Main Menu appears, type XA and press ENTER. A list of the available data- 
bases and the category of programs found in each section will be listed. See Figure A-2. Type a 
number that corresponds to a category and press ENTER. 

The message KEY <ENTER> FOR NEXT PAGE will then appear. Whenever this message 
appears, you can type S and press ENTER to “scroll” the screen display; otherwise, you’ll be pre- 
sented with the message at the end of each line. 



Figure A-2. SIG databases 
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Figure A-3. Database name 


Looking at Available Programs 

Once you’ve specified which database you want to examine, you’ll be presented with a menu 
similar to Figure A-3. 

At this point, use the Scan command to see a list of all available programs for the database 
you’re in. To do this, type S and press ENTER. The KEY <ENTER> FOR NEXT PAGE message 
will then appear. Press S (for “scroll”) and then press ENTER. A display similiar to Figure A-4 
will be presented. 

Downloading Programs Into Your Model 100 

When you’ve identified a program you wish to download, be sure the KEY DIGIT prompt is 
displayed and then use the Read command by typing R followed by the program name as listed in 
the database. Then press ENTER. For instance, if you wanted to download the program in Figure 
A-4, you would type R TEST, and press ENTER. (This name does not have to be the same as the 
program name appearing on the SIG catalog.) When you’re ready to start downloading, press 
ENTER again (to complete the READ command). 

The program will be displayed on your Model 100 screen as it downloads into the computer. 

Once the downloading is complete, you should exit the database by typing EXI and pressing 
ENTER, and then exit the Model 100 SIG by typing E and pressing ENTER at the Main Menu. This 
will return you to the CompuServe ! prompt. Type BYE and press ENTER to go off-line. 

When you eventually return to the Model 100 Main Menu, the downloaded program will be 
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listed as a .DO file. Open the file and delete any data that might have been downloaded but is not 
part of the BASIC program. 

Next run BASIC and load the .DO file containing the program. If an error occurs, it is usually 
a ?DS error, which means that a direct statement (a statement not prefaced by a line number) is 
included in the program. If this is the case, list the program to see where the error occurs, return 
to the TEXT program, open the file, and insert a line number. 

Finally, return to BASIC and load the program again. When the OK prompt appears, save the 
program in RAM by typing SAVE followed by the file name you wish to assign the program. For 
instance, type SAVE “TEST” and press ENTER. You can then begin using the program. 
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Programmer Biographies 


Robert Curtis teaches physics and philosophy at Hackensack High School in Hackensack, New 
Jersey. He holds a degree in physics from Fordham University in New York City and also a degree 
in philosophy. He is currently attending Seton Hall Law School. Mr. Curtis has been programming 
since 1962 and has programmed computers ranging from the IBM 1620 to the Model 100. He uses 
the Model 100 for transferring information at work and writing letters. 

Larry Gensch is a computer consultant who lives in New Hampshire. 

Alex R. Jacobs works for the Amoco Minerals Division of the Standard Oil Company as 
General Manager of the Cypress Bagdad copper mine west of Prescott, Arizona. Mr. Jacobs is a 
1962 graduate of the Colorado School of Mines. He has been interested in programming micro- 
computers for many years, and he now programs his Model 100 to use on both business and per- 
sonal trips. 

Richard J. Perry teaches programming languages, computer software interfacing, and engi- 
neering applications for computers at Villanova University in Villanova, Pennsylvania. Dr. Perry 
received a Ph.D. in Electrical Engineering from Drexel University in Philadelphia in 1981. He 
uses the Model 100 to access VAX and IBM mainframe computers for programming and text 
processing. 

Robert Ripley is an electrical engineering group leader at Philip Morris U.S.A. in Richmond, 
Virginia. He received his B.S. in Electrical Engineering from Virginia Polytechnic Institute in 
1971. Mr. Ripley uses his Model 100 for word processing and scheduling, and he is currently start- 
ing a Model 100 users’ group in Richmond. 

Rex Rivers is a software engineer for a large aircraft company in Wichita, Kansas. Mr. Rivers 
has been programming computers since he was in college, where he was the founder of and soft- 
ware advisor for a successful computer club. He now programs his Model 100 to use both at work 
and at home. 

Michael Rubenstein is a computer consultant living in Galveston, Texas. 

Richard S. Ross, Jr. is the President of the Philadelphia School of Office Training, a private 
post-secondary vocational training organization in Pennsylvania. It was in this capacity that Mr. 
Ross first used dedicated word processing equipment and microcomputers in 1982. Since then he 
has both used and programmed microcomputers extensively. 

Robert J. Sayre is a software engineer specializing in real-time automated vehicle monitoring. 

Mr. Sayre has a B.S. degree in Chemistry and Computer Science from Texas Christian University. 

Daniel G. Shafer is co-founder and Executive Vice President of HomeComputer Software, Inc., 
of Sunnyvale, California. Mr. Shafer has written more than 500 programs for microcomputers, and 
he owns four computer systems on which he develops new software and conducts research. He is 
also a freelance writer with several hundred published articles to his credit. 
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Donna Greaves Smith is a Managing Editor of Technical Publications for Radio Shack in Fort 
Worth, Texas. 

Guerri F. Stevens is the President of General Business Systems, Inc., a computer software and 
consulting firm in Glastonbury, Connecticut. She holds a B.A. from Oberlin College and an M.S. in 
Computer Science from Rensselaer Polytechnic Institute. Ms. Stevens has been programming com- 
puters for 22 years and has worked with the IBM 370 and several TRS-80 models in addition to the 
Model 100. 

Alexander Trevor is Executive Vice President of CompuServe, Inc., in Columbus, Ohio. 

R. Scott Truesdell is a freelance computer programmer with a background in art and writing. 
He received his B.A. from the University of California at Irvine in 1974. Mr. Truesdell first pro- 
grammed computers as a college freshman, and he has had extensive experience with them since 
that time. 
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